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SOLVE PROGRAMMING PROBLEMS 
THE WAY YOU I HINK. 


APLXPLUS?/PC 
IS THE ANSWER. 

'The shortest distance between 
two points is a straight line. But 
unfortunately, that's not the case 
in programming. 

Most languages require you to go 
through an enormous number of 
steps before an idea becomes reality. 

'That's why the APLX PLUS/PC 
System is such a dramatic and 
exciting software tool for serious 
PC programmers and application 
developers. 

Instead of requiring you to 
learn—and write—long-winded 
and complicated programs, APL is 
based on your instinctive ability to 
deal in symbols. And once you 
begin using APL’s quick notations, 
you'll find it the ideal programming 


environment for all your applica- 
tion needs. 

The incredible shortcuts you'll 
get with APL not only make you 
more productive, but make pro- 
gramming enjoyable. Intricate 
calculations and modeling on PC's 
are a snap. You'll spend less time on 
drudgery, and more time creating. 

Only with APL * PLUS/PG, do 
you get: 

e full-screen editing 

* a built-in terminal emulator 

* communications 
egraphics primitives 

* and report formatting. 

Writing time-consuming 
programs like sorting, ma- 
trix inversions, and string 
searching is eliminated. 
APL’s concise notation 
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already provides these. . .and more. 

No wonder a PC Magazine re- 
viewerenthusiastically reactedto our 
APL*PLUS/PC System with 
“awe and delight." 

So will you. The complete pack- 
age price is $595 and major credit 
cards are accepted. 

Act now and we'll send vou a free 
Convincer Kit. Contact your local 
dealer, or call 800-592-0050 (in 
Maryland, call 301-984-5123) to 
order your system, or for more in- 
formation about our other 
APL PLUS * WARE™ products— 
Æ from our UNIX" version 
to our new streamlined 
Pocket APL" 

You'll see how symbol 
they are to use, the very first 
time you use them. 


Problem-solving at the speed of thought. 


APL * PLUS/PC System requires 192K. A i i i 
oct iai oh he e code Mania A yia Sete ea iq be used for computers with IBM compatible graphics board. A character generator ROM or 


PLUS x WARE and POCKET APL are t 
AT&T Bell Laboratories. en 


STSC 


A Contel Company š š 
s of STSC, Inc. APL * PLUS is a registered service mark and trademark of STSC, Inc. UNIX is a trademark ot 
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Speed, Power, Price. 
Borland's Turbo Pascal Family. 


The industry standard. with more than 250,000 users worldwide Turbo Pascal is the industry's de facto standard. 
Turbo Pascal is praised by more engineers, hobbyists, students and professional programmers than any other development 
environment in the history of microcomputing. And yet, Turbo Pascal is simple and fun to use! 


Jeff Duntemann, PC Magazine: "Language deal of the century. . . Turbo Pascal: It introduces a new 9 9 e 


programming environment and runs like magic.” 
pee 


d e Dave Garland, Popular Computing: "Most Pascal compilers barely fit on a disk, but Turbo Pascal packs an editor, compiler, linker, 
ZE and run-time library into just 29K bytes of random-access memory.” 


Jerry Pournelle BYTE: "What I think the computer industry is headed for: well documented, standard, plenty of good features, 
and a reasonable price." 


Portability. Turbo Pascal is available today for most computers running PC DOS, MS DOS, CP/M 80 or CP/M 86. A XENIX verison of Turbo 
Pascal will soon bé announced, and before the end of the year, Turbo Pascal will be running on most 68000 based microcomputers. 


High resolution monochrome graphics for the IBM PC and the Zenith 100 computers 


Dazzling graphics and painless windows. The Turbo Graphix Toolbox will give even a beginning programmer 
the expert's edge. It's a complete library of Pascal procedures that include: 
—Full graphics window management. 


—Tools that will allow you to draw and hatch pie charts, bar charts, circles, rectangles and a full range of geometric shapes. 
—Procedures that will save and restore graphic images to and from disk. 
de —Functions that will allow you to precisely plot curves. 

^V, * 


—Tools that will allow you to create animation or solve those difficult curve fitting problems. 
and much, much more 


No sweat and no royalties. You may incorporate part, or all of these tools in your programs, 


and yet, we won't charge you any royalties. Best of all, these functions and procedures come complete 
with commented source code on disk ready to compile! 


95 


1 Searching and sorting made simple 


| The perfect complement to Turbo Pascal. it contains: Turbo-Access, a powerful implementation of the state-of-the-art B+tree ISAM 
technique; Turbo-Sort, a super efficient implementation of the fastest data sorting algorithm, "Quicksort on disk” And much more. 


Boves 


Jerry Pournelle, BYTE: “The tools include a B+tree search and a sorting system; I've seen stuff like this, but not 
ME as well thought out, sell for hundreds of dollars." 


b 


Get started right away: free database! included on every Toolbox disk is the source code to a working 
data base which demonstrates how powerful and easy to use the Turbo-Access system really is. 
Modify it to suit your individual needs or just compile it and run. 


Remember, no royalties! 


From Start to Finish in 300 pages. Turbo Tutor 
is for everyone, from novice to expert. Even if you've never 
programmed before, Turbo Tutor will get you started right away. 
If you already have some experience with Pascal or another 
programming language, Turbo Tutor will take you step by step 
through topics like data structures and pointers. If you're an expert, 


you'll love the sections detailing subjects such as "how to use assem- : e at be der | 
bly language routines with your Turbo Pascal programs.” o OF cal W cD 
iP earest P ed w/8087 8 85495 qu T. 
A must. You'll find the source code for all n ies Pa i regere 
the examples in the book on the accompanying fully Describe F 
disk ready to compile. Turbo Tutor might be Ca o mputer syster! 


the only reference on Pascal and pro- PUN 6 bit 
gramming you'll ever need. a 8 
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m While our specifications ` HARD DISK 

certainly speak for themselves, We've broken through the 32 

we thought you still might like to MByte DOS barrier! 

hear from some of our users: pe | 9 —ea 
7 Now you can create up to 240 

E "Emerald Systems expands the 

potential of PCs by providing the MByte databases on one file, with 


ability to access large amounts of data multiple volumes per disk drive. 


on line, quickly and reliably.” | You get 14 times more storage 
Terry Baptiste, Computerland, with a 30% increase IN 
Lafayette, Ca. ° access speed! 


w “Service and support is great, which 


i And that's not all: 
is an unusual experience. Emerald's 

software for backup and restore is Expands up to 280 MB for as little 
invaluable. Cant put a price on it. as $56 per megabyte. 
Productivity and efficiency has 6 expansion slots 
increased at least 50%!" Up to 24 volumes 
Bruce Kittinger, Pinon Systems, Drive sizes: 40,70,140 
iO ak Md Internal or External 
Bi Runs like a champ with 3-Com Also for PC,XT, and compatibles 
Ethernet." 


Supports all PC compatible 
networks 
Simple menu-driven installation 


Alvaro Ramirez, Micro Age, Miami, FI. 


. high capacity and flexibility. At 
last, a tape back up we can count on. 
And the price is right!” 


TAPE BACKUP 
John Acres, EDT, Las Vegas, Nv. 14" cartridge 
ll “The speed at which you can back 12" 9 track 
up is very impressive.” 60 Megabytes 


Jim McEwen, Mercy Hospital, 


No lost data from tape run out 
Portland, Me. 


Backup and Restore Utility (BRU") 
software included 
LAN Compatible* 


*FREE APPLICATION GUIDE: 


w “When Emerald says your unit will 
be there on Thursday, its there on 
Thursday! Delighted we were able to 
exceed the usual 32 megabyte 


restriction." "IBM LAN Installation and 
Steven Mayer, Take One Company, Implementation." 
New York, N. Y. 

e uc Call (619) 270-1994, 
m The Emerald 70 MB hard disk is i 

or write to 

extremely easy to install and work i 
with. Emerald has a complicated Emerald Systems 
piece of equipment made easy to Corporation 
use." Mainframe Storage for Micros 
Tom Edler, Jewish Hospital, St. Louis, Mo. | 4901 Morena Blvd, 
w "Our Emerald fixed disk installed San Diego, 92117 


quickly and easily. Emeralds reliable 
disk and tape backup further 
enhances LIBRAS high function l 
accounting software.” 

Kenn White, Libra Programming, 
Salt Lake City, Ut. 


TLX 323458 EMERSYS 
EASYLINK 62853804 


Distributed by Manchester Equipment of 

NYC, and selected Entre, MicroAge and 
— RETEA Computerland stores. 
SYSTEMS CORPORATION Emerald, BRU, Up Your AT, and Mainframe Storage 

Pee A den streets RIT LET TES for Micros are registered trademarks of Emerald 
Systems Corporation. IBM PC/XT/AT are registered 
trademarks of IBM Corporation. 
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RISK FREE 


You get your 7th issue free when you 
order a year subscription (6 issues) for 
$16. Plus, if you're not delighted with 
Micro C after receiving your first issue, 
just drop a note and we'll refund your 
entire $16, no questions asked. 


Order * (503) 382-5060 
! SPECIAL OFFER ! 
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Cover Artist 


Our cover “Fractal Dragon," is the creation of Benoit Mandelbrot, Professor 
of the Practice of Mathematics at Harvard University. The most conspicuous 
characteristic of this dragon is that the eye and the imagination distinguish in 
it, in addition to the overall shape, an infinity of smaller features of every size 
down to the infinitesimal. For geometric shapes of this kind, Professor Man- 
delbrot coined the term “fractal.” *Fractal Dragon" is a portion of "attrac- 
tor" that occurs in a problem of dynamics. The cover illustration is a repro- 
duction of Plate C5 of Mandelbrot's book The Fractal Geometry of Nature 
(Freeman 1982), drawn using computer programs by Mark R. Laff and V. 
Alan Norton. Copyright 1982 by B. B. Mandelbrot. 


Referees Who Assisted With This Issue 


Ted Carnevale, State University of New York at Stony Brook 
Allen Holub, DDJ Contributing Editor 

Robert Tripp, Editor-in-Chief of the late MICRO 

James Woomer, Commodore-64 Guru and Gazebo Builder 


See Richard Rylander's "Solid Shape Drawing on the Commodore 64" page 50. 
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EDITORIAL 


mane to this or any issue of DDJ: graphics and copy-protected disks. 

Frank Gaude regards the iconic interface of the Mac and its imitators as a 
regression to preliterate cave-scratchings. In his Z-News he says, "Long ago we 
used hieroglyphs to communicate. Then after a struggle an alphabet developed. 
Now we go back to pictures: icons. How many glyphs can we remember?" 

In the macaphony of the current iconolatry this cautionary message is wor- 
thy of attention, but I suggest that it's not the whole story. The function of 
software is to realize metaphors. Icons are capable of doing that well but are 
no help in stepping outside existing metaphors to invent new ones; no help, 
that is, in developing new software. I would agree that icons are mnemonic for 
users and superfluous for programmers and let it go at that, but for the fact 
that I have recently seen a prototype of a system that takes icons a step 
further, a system in which actions can be assigned user-created visual tokens, 
and can be combined in ways that visually and kinaesthetically convey the 
form of the combination. Active, growing icons. 

Furthermore, while the Mac icons are static tokens rather than elements of 
a true language, that is not true of all computer graphic aids to communica- 
tion. French researchers are currently developing the means for transmitting 
sign language over telephone lines at commercial data rates. Their idea is to 
extract from a sequence of video frames just the essential components of a 
gesture and pass those along. This does not, I should make clear, mean match- 
ing the gesture to some template from a database of acceptable gestures; 
rather it means producing a real-time cartoon version of the gesturing party. 
The cartoons, subject to idiomatic and dialectical variations, are truly linguis- 
tic graphic elements, which is just what icons aren't. 

As for copy-protected disks . . . . 

“ . . imagine yourself buying a new car. You have narrowed your choice to 
two cars, identical in all respects except that one will travel 100 mph and the 
other has a governor on it and cannot go past 55. Which car would you 
bus?" Michael D. Brown, Central Point Software, producer of Copy II. 

“People can rest assured that...we will always offer versions of our products 
that are not copy-protected.* —Philippe Kahn, Borland International. 

“Companies like Multimate and Borland have the right idea. Lotus, 
Ashton-Tate and MicroPro are the bad guys.” — Edward Messerly, SF region- 
al administrator of the GSA. 

“ ..a growing number of publishers are dropping traditional copy-protec- 
tion methods, which they conclude have created ill-will and inconvenience for 


| want to comment on what others have been saying about two subjects ger- 


users .... Among the publishers who have abandoned copy-protection 
schemes is MicroPro.... Many software publishers, however, hope to see 
new protection methods... ."— Time/Life Access: Apple. 


“These people are nutty.” — Edward Messerly. 
Yes. Something is nutty when a vendor can brag about also selling non-broken 
goods. It's really simple, isn't it? Vendors of software who want to stay ven- 
dors of software must find ways to profit from their efforts without breaking 
the tools they sell. The ability to copy files and disks is a facility I bought with 
my hardware and operating system. To try to sell me a program designed to 
subvert my system and hamper its operation is to try to enlist me in vandalism 
against my own property. Even granting that copy-crippling is a morally de- 
fensible policy, how could anyone believe that it was commercially viable in 


the long run? Nutty. 4 


Michael Swaine 
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Another in a series of 
productivity notes on MS-DOS" 
software from UniPress. 


Subject: Multi-window full 
screen editor. 


Multiple windows allow several files 
(or portions of the same file) to be 
edited simultaneously. Program- 
mable through macros and the built- 
in-compiled MLISP™ extension 
language. 


Features: 


@ Famed Gosling Version. 

li Extensible through the built-in 
MLISP programming language and 
macros. 

II Dozens of source code MLISP 
functions; including C, Pascal and 
MLISP syntax checking. 

B EMACS runs on TI-PC" IBM-PC AT" 
DEC Rainbow" or any other MS-DOS 
machine. Requires at least 384K. 

B Run Lattice? C or PsMake" in 
the background and EMACS will 
point to any errors for ease of de- 
bugging. PsMake is a UNIX "-style 
“make” utility to automate the proc- 
ess of building complex programs. 
II Optional Carousel Tools: UNIX- 
like facilities including cat, cp, cd, 
logout, Is, mv, pwd, rm, set, sh 

and more. 


— oie 
TEXT EDITING 


Price: IPRE 
EMACS $475 

One month trial 75 de 
Available for UNIX and VMS. 

PsMake 179 

Carousel Tools 149 

Full System 1,299 


Includes EMACS (object), 
PsMake, Lattice C, PHACT" ISAM and 
Carousel Tools. 


COMPILER 


FOR THE 8086" FAMILY 


PHACT.ASAM is a keyed.B + tree 
file manager providing easy access 
to.and manipulation of records in 

a database. | 


Trademarks of: Lattice, Lattice, Inc.: UniPress EMACS and MLISP. UniPress 
Software, Inc.: MS-DOS, Microsoft; UNIX, AT&T Bell Laboratories; Carousel Tools 
Carousel MicroTools, Inc.; PHACT, PHACT Associates; 8086, Intel: TI-PC. Texas 
Instruments; IBM-PC/AT, International Business Machines; DEC Rainbow/VMS, 
Digital Equipment Corp 


I Up to 9 alternate indices are sup- 
ported. 

E Record locking allows each record 
in the database to allow multiple"  . 
simultaneous updates. 

IS Records can be accessed on full 
or partial key. 

I /ncludes full Lattice linkable library 
and high-level functions. 

i Optional; PHACT-rg, a powerful 
and flexible report generator which 
provides a-high level, easy-to-use 
command language for formatting 
reports from existing PHACT data- 
bases. Available for UNIX, MS-DOS 
and VMS. 


wi kap” Features: Price: © 
SC Subject: Compiler for MS-DOS. lI Runs on the IBM-PC" under Lattice C-Compiler $425. an 
| ET MS-DOS 1.0, 2.0 or 3.0 PLINK 425 .— | à 
Lattice-C Compiler is regarded as II Produces highly optimized code. | 
the finest compiler for MS-DOS and E Small, medium, compact and | || 
is running on thousands of 8086 large address models available. III) 
systems. ` II Standard C library. ! 
a ii PLINK- optional full function vo 
linkage editor including overlay Age : 
and Support. we. Pur 
| Features: Price: 
Subject: Powerful Keyed File lI Supports fixed and variable length ` PHACT ISAM $250 
Access for MS-DOS... records (1-9999 bytes). PHACT-rg 165 


Source Code available, call for terms. 


- For more information on these and 


other UNIX software products, call or 
Write: UniPress Software, Inc.; 2025 
Lincoln Hwy., Edison, NJ 08817. 
Telephone: (201) 985-8000. Order 
Desk: (800) 222-0550 (Outside NJ). 
Telex: 709418. Japanese Distributor: 
Softec 0480 (85) 6565. European Dis- 
tributor: Modulator SA (031) 59 22 22. 


OEM terms available. 
Mastercard/ Visa accepted. 
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Anorexia Cured 


Dear DDJ: 
I read with some interest the article 
*Fatten Your Mac' that appeared in 
your January [1985, #99] issue and 
forthwith did a fattening on my Mac- 
intosh. There are a number of points 
that I would like to add to the article, 
however. Firstly, a fine supplier of the 
256K DRAM chips was omitted. I re- 
fer to Microprocessors Unlimited, of 
Beggs, Oklahoma, (918) 267-4961. I 
was able to phone them late Friday, 
and the chips they sent out on Mon- 
day arrived here (in Seattle) on Tues- 
day. I was quite pleased with the price 
and the service. They accept Visa, and 
they even sent a brief note explaining 
proper handling of the chips. 
Secondly, it is not necessary, 
though it may be desirable, to destroy 
the 64K DRAM chips. I desoldered 
the original chips with an Ungar 
model 2000 desoldering tool, and was 
able to remove the solder, let the 
board cool, then pry the chips from 
the motherboard, all without clipping 
a single lead. This damaged two 
printed circuit traces (pulled them 
off in the prying process); as the arti- 
cle recommends, there is a safer way 
to proceed. My technique cannot be 
advised in the absence of an excellent 
desoldering tool, or for those not con- 
fident in their abilitites to make 
printed circuit repairs. The article 
had so fired my enthusiasm that I 
yanked out the 64K DRAMs days be- 
fore the 256K DRAM circuits ar- 
rived. I was able to verify the repairs, 
and the removed memory chips, by 
installing sockets, plugging the 64K 
DRAMs into those sockets, and using 
the Macintosh. The nature of the lift- 
ed printed circuit traces (they showed 
copper color on the ICs to which the 
traces stuck) made detection easy, 


and no faults were missed. The board 
worked on the first try. 

Thirdly, the multiplexer can be in- 
stalled either piggybacked on another 
chip, or can be placed on a separate 
board, attached on the seven solder 
pads referred to in the article. Those 
seven pads include all logic signals 
and power required for the multiplex- 
er. I installed wire-wrap pins in those 
pads, made a small board for the 
multiplexer from .100-inch hole-grid 
breadboard material, and pushed the 
small board over the wire-wrap pins, 
wire-wrapping the connections atop 
it to hold it in place. I found this less 
tricky than the piggyback soldering 
job would have been, and no leads of 
the multiplexer needed to be bent. 

Fourthly, the multiplexer recom- 
mended is 74F253 or 74AS253; while 
these will do quite well, so will the 
74F153 or 74AS153; which are 
slightly less expensive; the only dif- 
ference is the nature of the DISABLE 
function, which (in this application) 
is always unused. All pin connections 
are identical to the ‘253. 

I found that the multiple-layer 
board, having extra copper in the in- 
terior layers, was rather more diffi- 
cult than most to desolder; I had to 
apply more heat (use a higher tem- 
perature on the desoldering iron) 
than usual, to complete the solder re- 
moval within a safe time. I did not 
notice any fragility of the printed cir- 
cuit (no more than most, at any rate), 
and my procedure was, as I have 
mentioned, rather stressful. At one 
point, I fumbled, and dropped the 
board onto the concrete floor—there 
was no damage. 

Prices were better than I expected, 
about $220 total cost for the chips, 
and that figure is dropping almost 
daily. Time required was almost ex- 
actly four hours. Since Apple charges 
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about six hundred dollars more for 
the 512K Mac, it hardly pays to buy 
one; the fine folks in Cupertino are 
willing, in effect, to pay me hand- 
somely for those hours, if I convert 
my 128K instead. 

Instead of ‘Macintosh’ and ‘Fat 
Mac’, I will be using the terms 'Mac- 
intosh’ and ‘Anorexic Mac’ in the 
future. 

Sincerely grateful, 

John Whitmore 

FM-15 Physics Dept., 
University of Washington 
Seattle, WA 98195 


Going PUBlic 


Dear DDJ: 

PUBlic files have been used success- 
fully on a wide variety of CP/M com- 
puters since the publication of our 
November 1984 [DDJ, #97] article 
“CP/M 2.2 goes PUBlic.” However, 
we want again to caution readers that 
PUBPATCH must be installed on an 
unmodified CP/M 2.2 BDOS! 

Several users have discovered that 
their Heath Co. CP/M 2.2.03 has 
been altered with a patch at O6EI 
and ODEE-ODF3 (relative to the 
start of the BDOS). The Heath patch 
causes the BDOS to stop building the 
disk group-allocation vector when it 
encounters the first directory entry 
having deleted data (E5) codes in 
both bytes 0 and 1. If PUBPATCH is 
then installed in this BDOS, the 
symptoms will be files that disappear 
from the end of the disk directory! 

Heath users with this problem 
should patch location 06E2h back to 
its original value ‘06D2h’ (relative) 
before installing PUBPATCH. 


RELATIVE ADDRESS 06E!’ 
ORIGINAL 2.2BDOS JZ06D2’ 
HEATH 2.2.03 BDOS JZ OEEE' 
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Two readers have reported problems 
with PUBLIC.ASM, used to set or re- 
set the PUBlic file attribute bit. Up- 
dated code can be found in [Listing 
One (page 13)]. The first fix corrects 
a bug in v. 1.0 that prevents PUBLIC 
from setting the attribute for a very 
large file. The second takes care of a 
bug in the standard CCP (but not in 
ZCPR), which fails to restore the de- 
fault dma address before continuing 
to execute a SUBMIT file. 
No changes are required to PUB- 

PATCH itself. 

Sincerely, 

Bridger Mitchell, Derek 

McKay 

Plu*Perfect Systems 

Box 1494 

Idyllwild, CA 92349 


Turbo Bug 


Dear DDJ: ; 

I have been using Borland Interna- 
tional's excellent Turbo Pascal com- 
piler for several months now (I start- 
ed with version 1) and I think it is by 
far the best implementation of any 
language I have every seen. The 
quick compiler and built-in editor 
have reduced the pain of correcting 
typos far enough to let me appreciate 
the virtues of Pascal. In the process I 
have discovered two things about the 
language that may be of interest to 
others. I am including listings of 
three short demo programs. 

First, the "initialized constants" 
mentioned briefly in both the refer- 
ence manual and the Turbo Tutor 
manual are really initialized static 
variables. This is clear from a close 
reading of either manual, but it is nev- 
er stated in so many words, nor do any 
of the example programs demonstrate 
it. Compiling and running the [pro- 
gram in Listing Two (page 13)] will 
demonstrate that the typed constant I 
in the procedure ShowStatic behaves 
exactly like a static variable in C. 

Compiling and running the pro- 
gram [in Listing Three (page 14)] will 
demonstrate a problem I discovered 
while trying to process the files pro- 
duced by a linker cross reference utili- 
ty. The Trunc and Round functions in 
both the MSDOS and CP/M versions 
of Turbo Pascal produce a run time 
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Are You In 
AZ Yet? 


The Ultimate Programmer's Editor 


some folks have already discovered it. And they threw their other 
editors away! Why? Because XTC is incredibly powerful. It's also 
easy to learn, and easy to use. XTC has MORE editing 

facilities for LESS MONEY — 99 bucks 


S: 
AT THESE LUXURY FEATURE 


wide, indepen- 


— 80 columns erlapping- 
d non-OV 
lant to see them on 


JUST LOOK 


INDOWS et 
A-way scrollaUe 
Ge 'em the way you W : 
user- 
M oS Plenty of room for over sign 
serene macro programs — d vem 
definat t tion keys or labels up 
Lem to 


we 
ters long! TING — Standard ador can 
KEYPAD EDITING you mavericks, yo Bad: 
come from. But to do auto-Inde 


those giret Need Wordstar com: 


redefine Wordstar editing 


tting, 
ung You can use your : 
mmands here. bo 4" 
MULTITASKING dm olatpendently in the 
d as separate processes Ww 
n 


backgrou PE ' ot 

continue editing. TURES — We've 9 2 
STRUC SE, WHILE, 

CONTR including Er 2 

REPEAT, FOR, and BP macros can use 


You 
STRINGS, plus - - ` vers than you || ever 


TEXT BUFFERS | — 90 in fact. 


These windows are 
really great! You can 
see several files at 
once — even different 
parts of the same file. 
That means you've got 
declarations in front cf 
you while you're look- 
ing at the code that 
uses them! 

Is XTC protected? Heck 
no! We even give you 
the source on a disk for 


INTRODUCTORY OFFER 


Want to compare XTC with your editor? 
Just ask for our demo disk (only $5.00) 
and try it out. When you buy XTC, we'll 

knock five bucks off the price. 


XTC outperforms any other program- 
mable editor on all IBM /PC, /XT, and /AT 
computers (and true compatibles). XTC 
even works with your Sidekick and Turbo your recreation — 
Pascal from Borland! 7,000 lines of Pascal! 


To get your copy of XTC now, order 
it over the phone — we can ship it 
the same day! Or, you can send in 
an order, just like this one: 


XTC 1 99 bucks Box 266 * Cheney, WA 99004 * USA * (509) 235-8088 
Shipping and Insurance ..... 3.50 
Wash. res. add tax..... 7.99 Redde z bie pos are ee ai 
° . oriana, international. orastar is a trademark o 
Want it COD? Add this... . .. 1.65 MicroPro. Wendin and XTC are trademarks of Wen- 
TOTAL IT UP AND SEND IT QUICK! din, Inc. 
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Programmers’ Pfanta: 


Phoenix makes programmers' dreams come true. With the 
best-engineered, highest performance programming tools 
you can find. A full line of MS™-DOS/PC DOS programs 
and utilities no other company offers. All designed to help 
you write, test and deliver the best programs possible. 
Top-of-the-line quality at a price you can afford. 


Finally, A Lint For MS-DOS. 


Now you can get the full range of 
features C programmers working in 
UNIX?" have come to expect from their 
Lint program analyzer. 

With Pre-C™ you can detect struc- 
tural errors in C programs five times 
faster than you can with a debugger. 

x Find usage errors almost impossible to 
detect with a compiler. Cross-check multiple source files 

and parameters passed to functions. Uncover interface bugs 
that are difficult to isolate. All in a single pass. Capabilities 


no C compiler, with or without program analyzing utilities, 
can offer. In fact, Pre-C outlints Lint, since you can handle 
analyses incrementally. 

And, Pre-C 5 flexible library approach lets you maintain 
continuity across all the programs in your shop, whether 
you use Pre-C's pre-built libraries, pre-existing functions 
you already have, or some you might want to buy yourself. 

Plus, you're not limited to one particular library, and 
Pre-C keeps track of all the libraries you're using to make 
sure that code correctly calls them. $395. 


Special Thanks to Gasten Audrey of Framingham, MA. 


Pmate, Plink86, Pfix86 Plus, Pasm86, and Ptel are trademarks 
of Phoenix Software Associates Ltd. 


Assemble Programs Twice As Fast. 


Pasm™ 86 assembles Masm files 2 to 
3 times faster than Masm 3.0. Pasm86 
supports 8086/88, 8087, 80186 and 
80286 processors. 

With Pasm 86's built-in defaults, you 
can write code quickly since you won't 
spend hours learning all the control 
statements needed at the beginning of your program. You 
can define symbols on the command line. Decide whether 
you want error messages or not. And, put local symbols 
within procedures. $295. 


Pfix86 pius | Still Fixing Bugs The Hard Way? 


Pfix™86 Plus, the most advanced 
symbolic debugger on the market, 
eliminates the endless error searches 
through piles of listings. Locate in- 
structions and data by symbolic name, 
using symbolic addresses. Handle 
larger, overlayed programs with ease. 

An adjustable multiple-window display shows source and 
object code and data, breakpoint settings, current machine 
register and stack contents simultaneously. An in-line as- 
sembler allows program corrections directly in assembly 
language. Powerful breakpoint features run a program full 
speed until a loop has been performed n times. 

With a single keystroke you can trace an instruction and 
the action will be immediately reflected in source, object, 
data, stack, and register windows. Another key begins a 
special trace mode that executes call and loop instructions at 
full speed. Designed to work with both Plink86 and MS™ 
LINK linkage editors. $395. 


MS-DOS, and MS LINK are trademarks 
of Microsoft Corporation. 


es by Phoenix. 


Get The Lead Out 
Of Binary File Transfer. 


Ptel™ is the universal binary file 
transfer program for MS-DOS 2.0 or 
3.0. You can move binary files fast and 
accurately. Upload or download groups 
of files from Bulletin Boards or remote 
computers. Move files between dissim- 

| s ilar machines and operating systems. 
Ptel’s advanced binary protocol, Telink, offers better- 
than-Modem7 accuracy and performance. Faster transfer 
speeds. An on-screen update of error correction, blocks, 
transferred, and time to complete. 

Includes popular Modem? and XModem protocols. With 
Checksum or CRC. Plus Kermit and ASCII. $195. 


Maximize Your Program's 
Efficiency. 


Pfinish"" delivers the fastest running 
programs possible. This performance 
analyzer lets you **zoom in"' on the 
inefficient parts of your program. 
Whether written in assembly language. 
C. Pascal. Fortran. Even Basic. Unlike 
profilers available today, Pfinish under- 
stands the structure of your program and reports the amount 
of activity and time spent in its subroutines or functional 
groups. Pfinish analyzes both overlaid and memory resident 
programs. Down to the instruction level. Reports are dis- 
played. Stored on disk. Or printed out. In tabular form or 
histograms. 

Do a dynamic program scan. Identify the most frequently 
executed subroutines. Find inefficient code that costs your 
program valuable time. Rank subroutines by execution fre- 
quency. $395. 


Pfinish 


Pre-C and Pfinish are trademarks of Phoenix Computer Products 
Corporation. UNIX is a trademark of AT&T Bell Laboratories. 
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Why Work With A Primitive 
Editor? 


More than a powerful editor, 
Pmate™ is a text processing language. 
An emulator of other editors. A lan- 
guage-specific editor for C, Pascal, 
and Fortran. Pmate™ can even run in 
the background! 

à s You get full-screen, single-key edit- 
ing. Ten editing buffers. Horizontal and vertical scrolling. 
A "garbage stack "butter A built-in macro language with 
variables, control statements, radix conversion, tracing and 
120 commands that you can group and execute with a single 
keystroke. $225. 


Why Squeeze Your Program 
More Than You Have To? 


The Plink™86 overlay linkage editor 
brings modular programming to 8086/ 
88-based micros. Write large and 
complex programs without worrying 
about memory constraints. Work on 
= = modules individually, link them into 
executable files. Use the same module in different programs. 
Changes the overlay structure of an existing program without 
recompiling. Use one overlay to access code and data in 
other overlays. 

Plink86 links Intel-format modules. $395. 


Call (1) 800-344-7200. In Massachusetts (617) 762-5030. 


Or, write. 


Phoenix Computer Products Corp. 
1420 Providence Highway Suite 115 
Norwood, MA 02062 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite for the IBM PC ... ' 


UP PERISCOPE! 


First, you install the hardware. 


The hardware's a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope's resident symbolic debugger. No 
runaway program, however berserk it may 


be, can touch this memory! ~ Leet < 


Then you UP PERISCOPE. (Ng Be 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop your system in 
its tracks at any time. 


__Use symbol names instead 
| of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program's execution 
with Periscope's comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


UP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 
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error if you attempt to convert a real 
value of — 32768 (8000H). Since this 
is a legal integer value, and right in 
the middle of the range of hex num- 
bers, I think this has to be called a 
bug. | 
Listing Four (page 14) shows one 

way of programming around this 
problem. It works just fine when using 
real numbers and integers to represent 
hex numbers between 0 and FFFFH, 
but it would not be very useful in an 
application that requires both positive 
and negative real numbers. 

Sincerely, 

William Ames 

8720 Topanga Cyn. Blvd. 48 

Canoga Park, CA 91304 


Borland assures us that this bug will 
be fixed in Version 3.0 of Turbo Pas- 
cal. —Ed. 


Fast Hartley Transform 


Dear DDJ, 

We were pleased to see Ron Ull- 
mans's letter in the December 1984, 
issue of Dr.Dobb's Journal regarding 
the Hartley Transform and the ac- 
companying listing of a software pro- 
gram. We, too, consider its advan- 
tage to be great. 

Your readers may wish to know 
Stanford University has proprietary 
rights on this technology, developed 
by Professor Ronald N. Bracewell. 
Patent rights are pending. 

Use of the software without a li- 
cense may be an infringement of those 
proprietary rights. However, a license 
under reasonable terms to the technol- 
ogy is available from Stanford. 

Incidentally, we have called this de- 
velopment the “Bracewell” transform, 
in recognition of Professor Bracewell's 
fundamental contribution. 

Sincerely, 

Lisa Kuuttila 

Consulting Associate 

Office of Technology 
Licensing 

Stanford University 


DDJ 
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L e t f Crs (Text begins on page 8) 
Listing One 


; UPDATE PATCHES FOR PUBLIC.ASM 
vers equ 1$2 ¿update PUBLIC.ASM version number 


. fix 1. Insert the following code in the. 'SAHEXT' routine 
immediately preceeding its 'ret' instruction. 


rnz Aa STE 
inx h ; extent is 0, check overflow (s2) ext. 
inx h 
mov a,in 
ani ZER 
, 
ret ; end of SANEXT routine 


fix 2. Insert the following macro statement at the label 'xit:' 


xit: dobdos  dmafn,8Oh ;restore default dma for SUBMIT under cop. 
å Tis 
lspd ustack 
Hét End Listing One 


Listing Two 


TURBO PASCAL Program Lister, Copyright 1983 Borland {nternaticnal 
Listino Gf: STATIC. PAS 


program TestStaticVariables: 

€ This program demonatrates that the "tyned constants" of Turbo Pascal > 
( are really static variables. Each time the main imap calls ShowStatic > 
( the typed constant I is incremented by 1. When ShowStatic is called > 
{ again the incremented value is written to the CRT. b} | 


var 
Cn Char: 
I : integer; 


pracedure ShewStatic; 
{ This prints and then increments the "constant" [ > 
const 

I : integer = uU; 


benir 
Writelr(I); 
LAFÆ Jo 13 
end; 


functien UseHeap(L : integer) : integer: 
{ This is included to demonstrate that the tyoed constant above is not A 
í distreyed when another procedure uses the heap o^ stack. PY 


var 

I : integer; 

J s “inteners 
begir 

I ss. -L 3 

riew (J) 3 

JG YS VLL 

LSA dg 

1f LOG 2 then 

L re UsekHeap(L): 


DisposetJ);s; 
UseHeap := L. 
end; 


(Continued on next page) 
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L e t f ers (Listing Continued, text begins on page 8) 
Listing Two 


begin 
repeat 
read(Kbd, Ch); 
I := UseHeanp (li): 
ShowStatic; 
Until Ch = #13; 
end. End Listing Two 


Listing Three 


TURBO PASCAL Propran Lister, Copyright i963 Borland International 
Listing of: CNVRT1.PAS 


progran RealTolntegerl: 
{ This program can be used to demenstrate a problem in > 
X converting real numbers ta integers. A 


var 

Nmbr : real; 

I : integer: 
begin 


Readlní(Nmbr)s; 
{ if Nmbr = 38768.02 the following produces a runtime errar >b 
if (Nmbr A 65535.Ø) or (Nmbr 4 @ then 
{ I am only interested in the range af 4 digit Hex numbers > 
Writeln(' overflow error?) 
else begir 
if Nmbr C 3768.09 then 
I ss Trane (Nmbr) 
else 
I s= Trane (Nabr - 65536. MÄ? 
Writeln(I): 
erd; 


end. End Listing Three 
Listing Four 


TURBO PASCAL Program Lister. Copyright 1983 Borland Internaticnal 
Listing of: CNVRTE. PAS 


pragram RealTcointegerc; 
{ this shows ane way around the bug demastrated in version 1 >P 


var 

Nmbr os real; 

I s integer; 
benin 


Readln(Nmbr) 3 
{ 3E768.0 is converted correctly by the following code > 
if (Nmbr > 65535.0) or (Nmbr (oi then 
X I am only interested in the ranne of 4 digit Hex numbers > 
Writeln(? cverflow errar?’ ) 
else begir 
if Nmbr «4 38768.Ø ther 
I se Trune (Nmbr) 


else 
benir 
I se Trune CNP Z 65555. 9): 
I ses pis š 
end; 
Writelri(I); 
erci i 
end. 


End Listing Four 
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The Macintosh 
Software 

Library 

just got fatter... 


It's about ^h 
TIME. 

AND SPEED. 

FASTER COMPUTER OPER- 
ATION with disk operations 2 to 
S times faster. 


QUICK PROGRAM TRANS- 
FER FROM OTHER CP/M 
using built-in 


COMPUTERS 
transfer utilities and 
CP/M file structure. 


standard 


RUNS BIGGER MORE POW- 
ERFUL PROGRAMS with 52K 


transient program area available 
on 128K Mac, 300K available on 
512K system and the capability is 
built-in to manage up to 16 
Megabytes of RAM. 


PLUG-IN WHAT YOU NEED 
...CP/M for the Macintosh sup- 
ports up to 2 printers and 16 
Drives of 512,000,000 bytes each 
for a maximum of 8 Billion bytes 
of storage. 


MORE DISK SPACE AVAIL- 
ABLE ... each disk drive has 360 
bytes available, often eliminating 
the need for additional drives. 


CHOOSE ANY PRINTER let- 
ter quality or dot matrix ... any 
serial printer will work just fine. 


MEDIA PROBLEMS?...NONE 
... all that is needed to transfer 
programs from 5% to 3% is a 
modem transfer program to 
operate with our Modem 7 Com- 
munications Compatible Program 
.. this enables programs to be 
transferred from XEROX, 
OSBORNE, HEATHKIT, 
KAYPRO, RADIO SHACK 
and others. 


THE 10 FEATURES: 


pà 


INA 


UNLIMITED 
EXPANDABILITY is 
made possible with the 
total and easy control of 
serial expansion ports 
which allows many forms 
of plug-ins. 


UTILITIES ... such as STAT, 
PIP, DDT, ED, LINK68, INIT, 
NM68, SIZE, LO68, RELOC, 
and AS68. 


AND We are currently compiling 
a vast Library of CP/M software 
that can be ported over to the 
Macintosh and our Macrolibrary 
will also be available soon. 


NEED POPULAR WORD 
PROCESSING PROGRAMS? . 
Run WORDSTAR® 
DBASEII® AND other CP/M 
(8080) 2.2 Programs with our 
EM80 Emulator .. ONLY $195.! 


With CP/M FOR THE MACIN- 
TOSH the Macintosh Software 
Library just got fatter! 


Call or write for your Macintosh 


. 6 Disk System CP/M Software Catalog. 


. Documentation from Digital Research 
and I.Q. 

. MacroAssembler (no extra charge) 

. Modem 7 Compatible Communications 
Transfer Program (no extra charge) 

. C Compiler (no extra charge) 

. Text Editor (no extra charge) 

. Menu Program (puts menus on your 
programs) (no extra charge) 

. Standard Printer Driver 
charge) 

. Copy Program (no extra charge) 

. Leir-Seigler ADM3A Terminal Emula- 
tion Program (no extra charge) 


All This For Only 
$395 Retail 


ir wx 
d 
OH. 
š 


in.  . Wsoftware.. 


I.Q. Software 

2229 E. Loop 820 N. 
Ft. Worth, Texas 76118 
(817) 589-2000 


(no extra 


Macintosh is a registered trademark of Apple Com- 
puter, Inc. CP/M is a registered trademark of Digital 
Research, Inc. WORDSTAR is a registered trademark 
of Micropro. DBASE II is a registered trademark of 
Ashton-Tate. ©1985 I.Q. Software 
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DR. DOBB'S CLINIC 


by D. E. Cortesi 
Welcome, Microans 


It seems that DDJ has picked up a 
batch of new readers, the erstwhile 
subscribers to the late, lamented Mi- 
cro. Let's recap the purpose of this 
column for their benefit. It's sup- 
posed to be “a place for the display of 
techniques and discoveries." That's 
what we said the first time it ap- 
peared, in May 1981. Also, "We'd 
like to tell of unobvious uses for stan- 
dard utilities. We want to uncover er- 
rors in documentation, to warn peo- 
ple away from pitfalls, and to show 
off those ‘Eureka!’ moments that 
make systems work rewarding." 

For a long time, most of the contri- 
butions to the Clinic involved CP/M 
and the Z80. Nowadays, we hear 
more from MSDOS/8086 users. 
Well, stand back, Zilog lovers; make 
room, Intel-lects! Now we have 
among us people who understand 
real computers like the 6502, the 
6809, and the 68000 and real operat- 
ing systems like OS9, SOS, and PRO- 
DOS. We can barely wait for the neat 
contributions they'll be sending in. 
Soon. 


Wood Blocks 


As bait for the Micro readers (hey, 
folks, we really like reader contribu- 
tions here), we present our wood 
blocks program for the Atari. It's a 
little thing (see Listing at right) that 
we ran up one day while experiment- 
ing with the start, select, and option 
keys. These three keys control the 
three lowest bits of a byte in the Atari 
address space. The program samples 
that byte, and each time the combi- 
nation of operated keys changes, it 
emits a heavily damped klonk at a 
different pitch. Play it by mashing 
down all three keys and then sort of 


16 


working your fingers around. 

The simulation of damped tones is 
pretty good. Experiment with the 
damping factor and with the expres- 
sion that generates a note value from 
the key combination. 


Roll Over, Keyboard 


We've an interesting letter here from 
Charles Davis, who lives in a town 
with the delightful name of Flower 
Mound, Texas. Besides submitting 
some throughput timings for an Atari 
system (at last!), he's been studying 
keyboards: 

“Perhaps you could survey another 
area of concern. I am either a very 
good typist or a very sloppy one! I 
need a keyboard with what used to be 
called *N-key rollover.' These are 
hard to find. The current generation 
of computers and terminals does not 
seem to supply this feature. Most 
marketing and sales people ... are 
unaware of the feature and therefore 
the sales literature does not mention 
it, even when it is present. 

“A survey of the popular computers 
and terminals with reference to roll- 
over would be interesting to me and, I 


10 REM WOODBLOX FOR ATARI, 


20 KEYBYTE=53279 
: DAMPING=0.29 


think, to many of your readers. My 
procedure for checking rollover is to 
depress several keys in sequence, hold- 
ing each until all are depressed, then I 
lift them all in the same order. I ob- 
serve what happens on the screen. 
There seem to be three types of re- 
sponse: 


e the first N keys (type 1) 

e the last N keys (type 2) 

e only the first and last keys 
(type 3) 


The major variable is how big N is. 
Rarely must I find a helper with more 
fingers. One terminal manufacturer 
admitted that their terminals had N- 
key rollover and that N was supposed 
to be 5, but some key sequences did 
not work right so they would only 
guarantee N to be 3. This points up 
the weakness of my procedure: I do 
not do an exhaustive check and some 
problem characters may be missed. 
Without knowledge of the key matrix 
and the scanning algorithm, it would 
take too long to find the problems." 
Davis sent along the results from ` 
some terminals he'd tested (see Table 
I on page 17). However, our first at- 


D.E. CORTESI 


30 SAMPLE=PEKK (KEYBY TE) 
: IF SAMPLE=BUTTONS THEN GOTO 30 


40 BUTTONS=SAMPLE 


PI TCH=1 2* (8-S AMPLE) 


: VOLUME- 15 
50 SOUND O,PITCH,12,VOLUME 

: VOLUME- VOLUME- VOLUME *D AMPI NG 

: IF VOLUME >= | THEN GOTO 50 
60 SOUND 0,0,0,0 

s GOTO 30 
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Terminal 

ADDS Regent 20 

ADDS Viewpoint 

Appollo DN600 Workstation 
Atari computers 

CIT 101E 

Daisy Logician Workstation 
Hazeltine 1410 
Heath/Zenith 19 and 29 
HP-85 

HP-9816 

IBM PC/XT 

Perkin-Elmer Bantam 550 
Soroc IO- 120 
 Televideo 950 

Wyse 50 


Command 
. Code 


Type of 
Driver 
either 
block 
block 
either 
either 
character 
character 
character 
either 
either 
character 
character 
either 
either 
either 
either 


^ e e ed e 
Q! > @ N ^00 - @ G! P @ S — Ó 


Response 
type 1 ` 
type 1 
type 1 
type 3 
type 1 
type 1 
type 3 
type 4 
type 3 
type 1 
type 1 
type 1 
type 3 
type 1 
type 1 


Table 1 
Charles Davis' survey of the number of keys that can be 
“rolled over on different terminals. Types are: 1, first N keys; 
2, last N keys; 3, first and last only; 4, first N keys then 
garbage. 


Operation 


initialize 

media (sic) check 

build Bios Parameter Block 
IOCTL input call 

input 

nondestructive input no wait 
input status check 

input flush 

output 

output with verify 

output status 

output flush 

IOCTL output call 

notification of file-open 
notification of file-close 
IOCTL query: removable disk? 


Table 3 


Rollover 
N > 10 
N > 10 
N> 10 
n.a. 

N= 2 

N > 10 
n.a. 

N= 2 
n.a. 


The command codes to which an MSDOS device driver must 
respond, omitted from IBM's DOS Technical Reference man- 


uals. Codes 13, 14 and 15 are new with PCDOS 3.0.—Codes 3, 


12 and 15 are passed only to drivers that indicate IOCTL 
support in their Device Header Attribute word. 
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The First 
Multiple File 
Programmable Editor 


VEDIT 

has been InfoWorld 

acclaimed Software Report Card 

for the last 

as the $i E š 
& bk oJ u 

Industry Performance Bi ECH 

Standard Documentation | g 0 ØP 

in text Ease of Use OD Dat 

editing. Error Handling BADE”. 


Now there's VEDIT PLUS. 
VEDIT PLUS is the ideal tool for 
program editing and technical writ- 
ing. It gives you every editing func- 
tion you expect, plus it can: 
e Edit multiple files of any size 
e Compare files 
e Be fully customized 
e Perform arithmetic computa- 
tions 
e Be expanded with print format- 
ting & spell checking-correcting 


The power of VEDIT PLUS lets you 

increase your productivity with: 

e Numeric, relational, and logical 
functions 

e |f-Then-Else decision making 

e Easy file handling 

e The ability to create prompts for 
user input and menus 

e Special programming features 


Expect a lot from VEDIT PLUS. 
It's small (23K), fast and it's from 
CompuView - nationally recognized 
for user support. 


VEDIT PREUS: 5 xS. $225 
VEDEN $150 


CompuView 


1955 Pauline, Ann Arbor, MI 48103 
(313) 996-1299 - (800) 327-5895 


Circle no. 9 on reader service card. 17 


Hayward, California 94541 


18 


AT LAST 


S-100 C— 488 


THAT 
DOES 
EVERYTHING 


YOU WANT 


IT TO DO 


D&W DIGITAL, INC. 
20655 Hathaway Avenue 


(415) 887-5711 


Circle no. 28 on reader service card. 


tempt to test a keyboard produced a 
new result that you should watch out 
for: 


e the first N keys plus a garbage 
key (type 4) 


This is the H19 problem we reported 
here in August 1982; it results from a 
lack of blocking diodes in the key ma- 
trix. Heath hasn't learned anything 
since, either. On our Heath/Zenith 
29, holding L, I, and then S produces 
*LIQS" on the screen. We have to be 
very precise typing the word “‘list” or 


it comes out “liqst.” Worse, some - 


combinations produce false function 
keys. The combination E, I, then P 
generates a false down-arrow (es- 
cape-B) sequence, for instance. So 
the H/Z29 is an N=2 machine, even 
though for some key combinations it 
will pass Davis’ test as a type 1 with 
much higher N. Incidentally, the 
good combinations occur on the 
home row. That suggests that you 
might apply Davis” test on the top or 
bottom rows. 


Charting DOS 


We've been boning up on MSDOS 
and PCDOS lately, in preparation for 
writing a book and we've compiled 
the chart of DOS services that ap- 
pears in Table 2 (page 19) as a study 
aid. For each possible Int 21 service it 
shows the request number in decimal 
and hex, the releases that support it, 
and a capsule description of the ser- 
vice. The services are organized into 
groups by function. The groups and 
the services within the groups are 
generally in ascending order by re- 
quest number, but functional rela- 
tionships are given precedence. 

The idea is that you can look for 
the service you need by scanning a 
small group of related ones. The cap- 
sule descriptions are just enough to 
differentiate between similar func- 
tions. Having found the service you 
need, you can access its detailed de- 
scription in your DOS manual 
through its request number. 

Our study of PCDOS has been im- 
peded no small amount by the poor 
quality of the IBM DOS manuals, es- 
pecially those for DOS 3.0. For one 


example, the documentation on ser- 
vice 56/38h (get or set country-de- 
pendent information) is so badly 
done that we honestly cannot make 
sense of it. If you are a reader who 
can write a comprehensible, accurate 
description of the DOS 3 version of 
service 38h, please do so and send it 
to the Clinic. 

For another example, the chapter 
on device drivers omits any specifica- 
tion of the command codes to which a 
device driver is supposed to respond. 
In the DOS 2.1 manual you could still 
cull the essential information from 
the comments of a sample program. 
In DOS 3.0, the sample program has 
been dropped from the manual. The 
book says just enough that you can 
infer that command codes 3, 4, 8, 9, 
and 12 specify input or output, but 
there is no way you can tell which 
code calls for what action! 

Fortunately, the missing informa- 
tion can be found in Microsoft's ver- 
sion of the technical manual, from 
which we constructed Table 3 (page 
17). Although some command codes 
are specific to character or block de- 
vices, it seems wisest for all drivers to 
expect all command codes. They can 
treat the unwanted ones as null oper- 
ations, or they can reject them with 
the *unknown command” error code. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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Service number in decimal and hex 
Appears in which releases ` 
Functional group 


(o. JA —cc —-—————————— 8 


Dr. Dobb's Journal, May 1985 


Capsule description 


0/00 1/2/3 program cntrl end program (requires PSP *CS) 
49/31 om (2/3 program cntrl end, stay resident, AL—ret, DX = size 
76/4C 23 program cntrl end program, AL=ret 
38/26 1/2/3 program cntrl make daughter PSP at (DX:00) 
75/4B 123 program cntrl (AL — O0) load, run daughter from path *DS:DX 
77/4D -/2/3 program cntrl get AH=term code, AL=ret of daughter 
75/4B —/2/3 program cntrl! (AL=3) load DS:DX —> path as overlay 
98/62 —[—[3 program cntrl! get BX=paraddr of my PSP 
48/30 —/2/3 system info get DOS version number 
42/2A 1/+/3 system info get CX — year, DH=mo, DL=day (2,3:AL=dow) 
44/2C 1/2/3 system info get time as CH:CL:DH.DL 
6133 —/2/3 system info (AL=00) get Break switch in DL 
53/35 —/2/3 system info get int(AL) vector to ES+BX 
56/38 —/2/+ system info (AL=00) get country-dependent info 
72/48 —/2/3 system info (BX —FFFF) get size available RAM to BX 
89/59 —/—/3 system info get extended error to AX, BH, BL, CH 
37/25 1/2/3 system control set int(AL) vector to (DS+ DX) 
43/2B 123 system control set date from CX, DX 
45/2D 1/273 system control set time from CH:CL:DH.DL 
51/33 23 system control (AL=01) set Break switch from DL.O 
56/38 c rg system control  (??) set country-dependent info 
72/48 —/2/3 system control allocate BX paragraphs 
73/49 -/2/3 system control return RAM from ES = paraddr 
74/4A —/2/3 system control resize ES=paraddr to BX paras 
1/01 1/2/3 kbd/handle O get key: wait, echo, break-check 
6/06 1/2/3 kbd/handle O — (DL—FF) get key: noecho, nowait, nobreak 
7/07 1/2/3 kbd/handle O get key: wait, noecho, nobreak 
8/08 1/2/3 kbd/handle O get key: wait, noecho, break 
10/0A 123 kbd/handle O buffered line input with editing 
11/0B 1/2/3 |  kbd/handle O test if key available (break) 
12/0C 1/2/3 kbd/handleO flush buffered keys, then do (AL) 
2/02 1/2/3 scrn/handle 1 put DL with editing and break-check 
6/06 1/2/3 scrn/handle 1 (DL < > FF) put DL, noedit, nobreak 
9/09 1/2/3 scrn/handle 1 iterate DOA 2 over *DS:DX to $ 
3/03 1/2/3 aux/handle 3 get byte from COM1 
4/04 1/213 aux/handle 3 put byte to COM 1 
5/05 1/2/3 prt/handle 4 put byte to LPT1 ` 
25/19 1/2/3 disk info get AL — default drive 
47/2F —/2/3 disk info get Disk Transfer Address to ES:BX 
27/1B 14/3 disk info get FAT *DS:BX (2,3: only 1st byte of FAT) . . 
28/1C —I213 disk info .. and CX=bytes/sec AL=sec/unit DX —units/disk 
54/36 123 disk info BX —free units, CX/DX/AL as for 1C 
84/54 23 disk info get write-verify switch to AL.O 
Table 2 
Chart of DOS Services (Continued on next page) 
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13/0D 
x 14/0E 
- 26/1A 


46/2E ` 


15/0F 
16/10 
1241 

18/12 
19/13 
22/16 
23/17 
35/23 
36/24 
40/28 
41/29 


20/14 ` 


21/15 
33/21 
34/22 
39/27 
40/28 


57/39 


58/3A ` 


59/3B 
71/47 


63/3F 
64/40 


60/3C 
91/5B 


90/5bA ` 


61/3D 
62/3E 
65/41 
66/42 
67/43 
67/43 
69/45 


70/46 ` 


78/AE 
79/AF 


86/56 ` 
87/57 ` 
557 


92/50 
92/5C 
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1/2/3 
1/2/3 


123 
1983 
123 


1/2/3 


125 


1/2/3 
1/2/3 
1/2/3 
1/2/3 
1/2/3 
1/2/3 


' 1/+/3 


1/2/3 
1/2/3 
1/2/3 
1/2/34. 
1/2/3 
1/2/3 
-/93 
—/2/3 
{2/3 
-/2/3 
—/2/3 
23 
25 


8 


ic 


AE 
7 /2[3 


1213 
—/2/3 
RI 


23. 


—/2/3 
—/2/3 
— [2/3 
—/2/3 
22 
—/2/3 
-/2/3 
(3 
TB 


disk control 
disk control — 


disk control 


disk control 


fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 


fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 


directories 
directories 
directories 
directories 


file i/o 
file i/o | 


file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 


reset disk system 

select drive, return count of drives 
set Disk Transfer Address = DS:DX 
set write-verify switch from AL.O 


open file from FCB 

close file from FCB 

scan current directory for first match 
scan current directory for next match 
erase files matching FCB 

make new file from FCB 

rename file from FCB 

get size of file to fcb 

set relrecno from current file position 
(CX = O) trunc or stretch file to size 
parse filespec *DS:SI into fcb *ES:DI 


read next record to DTA 

write DTA to next record 

read record at direct address 

write record to direct address 

block read CX records to DTA 

(CX > O) block write CX records from DTA 


make directory for path *DS:DX 

erase directory at end of path *DS:DX 
set current path as path *DS:DX 

get current path of DL=drv to DS:DI 


read CX bytes from BX — handle to DS:DX 
write CX bytes to BX=handle from DS:DX ` 


create/trunc file (path *DS:DX, CX — attr) 

create new or fail (path "DS:DX, CX-—attr) — ` 
create unique file (path *DS:DX, CX=attr) 

open file (path *DS:DX, AL= access type) ` 
close file (BX=handle) 

erase file (path "DS:DX) 

seek (BX= handle, AL— method, CX+DX= SE 
(AL —O) get CX=attr of file path *DS:DX | 
(AL= 1) set attr of file path *DS:DX to CX 

create a duplicate file handle 

force a handle to be a duplicate 

search 1st match to path *DS:DX 

search next match to path *DS:DX 
rename/move path *DS:DX to path *ES:DI 
(AL=0) get CX — time, DX — date of path *DS:DX 
(AL— 1) set CX — time, DX = date of path *DS:DX 
(AL=0) at CX+ DX in BX=hdl, lock SI+ DI bytes 
(AL 1) release bytes locked by prior call 


Table 2 
Chart of DOS Services 
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THE PROGRAMMERS SHOP} 


helps compare, evaluate, find products. Straight answers for serious programmers. 


SERVICES 


Programmer's Referral List + Dealer's Inquire 


Free Literature - Compare Products 


RECENT DISCOVERIES 


š Evaluate products C titors L bout Iternatives. One f i |. FASTER C - Lattice users eliminate Link 
sete ucc cad brings information on just about any programming need Ask for any “Packet” or | Step. Normal 27 seconds, Faster C 
* Evaluation Literature free — + Over 700 products # “Addon Packet”: C ADA, Modula O “Al” CJBASIC °C” COBOL O Editors in 13 secs. MSDOS $95 
e BULLETIN BOARD - 7 PM to 7 AM 617-826-4086 [FORTH CJFORTRAN [PASCAL O UNIX/PC or [Debuggers, Linkers, etc. 
ARTIFICIAL INTELLIGENCE C LANGUAGE FORTRAN LANGUAGE 
EXSYS - Expert System building INSTANT C - Interactive develop- MacFORTRAN - full 77, '66 option, 
tool. Full RAM, Probability, Why, ment - Edit, Source Debug, run. toolbox, debugger, 128K or 512K, 
Intriguing, serious. —PCDOS $275 | Editto Run-3Secs. MSDOS $495 | ASM-out option MAC $375 


GC LISP - "COMMON LISP”, Help, 
tutorial, co-routines, compiled 
functions, thorough. PCDOS $455 


IQ LISP - MACLISP & INTERLISP. 
Full RAM. Liked. PCDOS $155 


TLC LISP - "LISP-machine like, 
all RAM, classes, turtle graphics 
8087. CP/M-86, MSDOS $235 


INSIGHT 1 - Expert Sys. Devt, 
decent PCDOS $95 


PROLOG-86 - Learn fast, Stan- 
dard, tutorials, samples of Natural 
Language, Exp. Sys. MSDOS $125 


Expert System front-ends for 
PROLOG: APES ($275), ES/P 
($1895) 


Other solid alternatives include: 
MuLISP-86 ($189), WALTZ LISP for 
CPM ($159), MicroPROLOG ($275) 


EDITORS FOR PROGRAMMING 


BRIEF Programmer's Editor - undo, 
windows, reconfigurable, macro 


“INTRODUCING C” - Interactive 
C to learn fast. 500 page tutorial, 
examples, graphics. PCDOS 


MEGAMAX C - native Macintosh 
has fast compile, tight code, K&R. 
toolkit, .OBJ, DisASM MAC $275 


Audio-based C tutorials. 
Overview $95. 


C LIBRARIES 


COMMUNICATIONS by Greenleaf 
($159) or Software horizons ($139) 
includes Modem, interrupts, etc. 
Source. Ask for Greenleaf demo. 


C SHARP Realtime Toolkit - well 
supported, thorough, portable, ob- 
jects, state sys. Source MANY $600 


APPLICATION TOOLKIT by Shaw - 
Complete: ISAM, Screen, Overlay 
mgnt, report gen, Strings, String 
math. Source. CPM, MSDOS $495 
ROMPack - special $Main .EXE edi- 
tor, source, tech support, 8086. $185 


Full $295 


programs, powerful. PCDOS $195 | PPA: Teen: ts 


VEDIT - well liked, macros, buffers, 
CPM-80-86, MSDOS, PCDOS $119 


MACINTOSH 


We evaluate, carry every available 
programmers product. Ask. 


PERISCOPE DEBUGGER -load 
after "bombs", symbolic, "Reset box”, 
2 Screen, own 16K. PCDOS $279 


SOURCE PROBE by Atron for 


Lattice, MS C, Pascal. Windows 
single step, 2 screen, log file. 


$395 | code 


DR/Fortran-77 - full ANSI 77,8087, 
overlay, full RAM, big arrays, com- 


$95 | plexNUMS., CPM86, MSDOS $249 


Ask about Microsoft, Supersoft, others. 


OTHER LANGUAGES 


ASSEMBLER - ask about FASM-86 
($95), ED/ASM ($100) - both are 
fast, compatible, or MASM 

($125), improvements. 


BetterBASIC all RAM, modules, 
structure. BASICA - like $185 
HS/FORTH - 79 & '83 Standards, full 
RAM, ASM, BIOS, interrupts, graph, 
multi-task, optimizer MSDOS $250 


MBP COBOL has screen control, strong 
doc, 74 interm., fast. MSDOS $680 


SUPPORT PRODUCTS 


BASIC DEVELOPMENT SYSTEM - 
(BDS) for BASICA; Adds Renum, 
crossref, compress. PCDOS $115 

PLINK-86 for Overlays, most lang., 
segment control. MSDOS $325 

ProYAM Communications Package - 
All a programmer d want. TTY, VT 
100, 3101, MODEM7, BBS. Remote, 
macros, windows MSDOS $139 


CODESMITH - visual, interactive 


debugger. Symbolize, modify 
$129 


ENE rar TE E E er 


EDITORS Programming LANGUAGE LIBRARIES 


"um OUR 
C” LANGUAGE 5 FORTRAN RUNS ON. pute 


MSDOS: C86-8087, reliable Call OUR GRAPHICS: GraphiC-source in C MSDOS 219 MS FORTRAN-86 - Impr. MSDOS $ 239 
Instant C - Inter., fast, full 495 RUNS ON PRICE GRAPHMATIC-3D.FTN,PAS  PCDOS 125 DR Fortran-86 - full '77' 8086 249 
Lattice 2.1 - improved call BRIEF - Intuitive, flexible PCDOS 195 HALO-fast, full-all lang. PCDOS 139 — PolyFORTRAN-XREF, Xtract ^ PCDOS 165 
Ser? ; vi n 279 C Screen with Source 86/80 75 i MGNT: BTrieve-all lang. MSDOS 215 

(ams, debugger, fas call Epsilon - lik PCDOS Index + -source, no royal. 86/80 369 

C Systems & debugger 175 any nat eee c ^ne D CTree-source, no royal. "TEM OTHER PRODUCTS 

CPM80: EcoPlus C - faster, SLR 275 MINCE-like EMACS PC/80 149 dBC ISAM by Lattice 8086 229 Assembler & Tools - DRI 8086 159 
BDS C - solid value 125 PMATE-powerful 8086 185 dB VISTA- "Network" Structure MSDOS 465 Atron Debugger for Lattice PCDOS 395 

MACINTOSH: Softworks 365 VEDIT-full. liked 86/80 119 PHACT-up under UNIX, addons MSDOS 225 cEnglish - dBase to C MSDOS 750 
Megamax-object, full 275 OTHER: CUtil by Essential MSDOS 129 C Helper: DIFF, xref, more 86/80 135 
Consulair's MAC C =: Greenleaf - 200 + MSDOS 159 CODESMITH-86 - debug PCDOS 129 
Compare, evaluate, consider other Cs UNIX PC CSharp - Real-Time MSDOS 600 MacASM-full, fast. tools MAC 115 

COHERENT - for “C” users ` PClike 475 PORTABLE C to PC, Mac, Il Many 125 MBP Cobol-86 - fast 8086 680 

BASIC RUNS ON COHERENT-NCI-Realtime ` PClike call SOFT Horizons - Blocks | PCDOS 139 Modula 2 for MAC, PCDOS 90 

Active Trace-debug 86/80 75 XENIX - plus Cto MSDOS PC 1275 SCREEN: CURSES by Lattice PCDOS 125 Micro: SubMATH-FORTRAN full 86/80 250 

M-86 - MicroSoft — 8086 279 — Askaboutrun-times, applications, DOS compatibil- CView- input, validate — PCDOS 195 ` Microsoft MASM-86 MSDOS 125 

BASIC Dev't System ` PCDOS 115 ity, other alternatives. UNIX is a trademark of Bell Labs — MetaWINDOW - icons, cip PCDOS 139 MSD Debugger PCDOS 1:9 

BetterBASIC - 640K PCDOS 185 PANEL - many lang, term MSDOS 249 Multilink - Multitasking PCDOS 265 

CB-86 - DRI CPM86 419 ProScreen - windows, source PCDOS 415 PC FORTH + -well liked MSDOS 219 

Prof. BASIC Compiler PCDOS 89 Windows for C MSDOS 175 PFIX-86 Debugger MSDOS 169 

Databurst - screens MSDOS 215 PL 1-86 8086 495 

nM Sem Call for a catalog, literature, and solid value POMAKE 7 MS do 

olyMAKE 

Ask about ISAM, other addons for BASIC d , PROFILER by DWB - flexible MSDOS 109 

Prolog-86-Learn, Experiment S s 

SLK F - Copy Protection PCD 
SERVICE 8 () 0 = 4 = SYMD debugger-symbols PCDOS 119 
ALL PRODUCTS - We carry 700 products TRACE86 debugger ASM MSDOS 115 


for MSDOS. CP M 86. CP M 80. Mac- 
Intosh and key products for other 
micros. 


THE PROGRAMMER'S SHOP" 


128-I Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 MasterCard 


Note: All prices subject to change without notice 
Mention this ad. Some prices are specials. 
Ask about COD and POs. All formats available 


Visa 8517 


Circle no. 72 on reader service card. 


REALIZABLE FANTASIES 


by D. E. Cortesi 


The publishers of DDJ recently 
threw a party to celebrate the 100th 
issue of the magazine. It was a 
friendly affair, with lots of sincere 
speeches about how important DDJ 
has been and about how it still has a 
great role to play. There was a lot of 
talk about “hackers.” what they ac- 
complished; where DDJ stood in re- 
lation to them; where they might 
have gone now. 

they were expressed, the sentiments 
seemed incomplete to me. Something 
was being overlooked, but I couldn't 
figure out what it was until I was 
halfway home. Then I lay awake 
working out the speech that ought to 
have been given, but wasn't. And this 
SAE s 


We've heard a lot about “hackers” 
in the last few minutes. I would like 
to protest the use of that word. I un- 
derstand why it's being used. It's be- 
cause nobody can think of the right 
word to describe the people who 
founded DDJ and the people who 
read and profited from it in its earli- 
est days. We know they weren't part 
of the establishment; we know they 
didn't play a conventional role in the 
society of their day. We have, per- 
haps, an uneasy feeling that we aren't 
quite like them and that they 
wouldn't find us very interesting— 
even though perhaps we were them 
just a few years ago. 

So we scratch around in our vocab- 
ularies, searching for the right word 
to describe these departed people, 
and the best we can come up with is 
*hacker." Well, it's the wrong word. 

The right word is ... revolution- 
ary. Subversive. Bomb-throwing an- 
archist. 

To me, the hacker state is a frame 
of mind in which one is turned inward 
on oneself and the machine: one's 
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Dr. Dobb is a Subversive 


spiritual third eye rolls up into the 
head. The people who birthed DDJ 
and personal computing in general 
were quite the opposite. Their eyes 
were turned outward on society—and 
twinkled with mischief. 

They were bent, quite consciously, 
on overthrowing the established order. 
It was to be a nonviolent overthrow, 
one conducted if possible with whimsy 
and good humor, but it was to be an 
overthrow, a toppling, nonetheless. 

The central tenet of this jolly revo- 
lution was (and still is) the belief that 
if we put enough computers in the 
hands of enough people, wonderful 
changes will take place. What the 
wonderful changes are .. . well, that 
varies with the year and the person 
you're talking to. But that they will 
be wonderful, as well as radical in the 
deepest and best sense of the word, no 
computer subversive doubts. I cer- 
tainly don't. 

The founder of the movement and 
its only theorist, its Marx or Che Gue- 
vara if you like, is Ted Nelson. His 
book, Computer Lib, was written in 
reaction to computers, their employ- 
ers, and their professional priesthood 
as those things existed in the early 70s. 
It was a protest: “Either computer 
systems are going to go on inconven- 
iencing our lives, or they are going to 
be turned around to make life better," 
and then, in caps, a battle cry: “COM- 
PUTER POWER TO THE PEOPLE! 
DOWN WITH CYBERCRUD!” 

And to make sure we didn't miss 
the point, there was the symbol of the 
clenched fist on the cover. I hope I’m 
not the only one here who remembers 
when the word Lib and the upraised 
fist were potent, dangerous symbols. 
That Nelson borrowed both for his 
manifesto indicates how serious he 
was. 

I don't know if the People's Com- 


puter Company admitted to subver- 
sive intentions in public or not. Un- 
fortunately for me, I was out of the 
country during its glory days. I was 
aware of micros and an early sub- 
scriber to DDJ, but I was only a fellow 
traveler to the revolution, not a revo- 
lutionary myself. 

But whether the intentions were ad- 
mitted or not, I'm positive that they 
were there. No one who's spent any 
time with Bob Albrecht, or with Ra- 
mon Zamorra, who founded Compu- 
terTown USA!, could have any doubt 
that these people are motivated by a 
deep love of mischief. Nothing pleases 
them better than a well-toppled apple 
cart or a well-rocked boat. 

Another revolution that I missed 
out on was the birth of the acid cul- 
ture in the early 60s. But I suspect 
that the spirit of People's Computer 
Company had a lot in common with 
the spirit of Ken Kesey's Merry 
Pranksters, and with that of the Dig- 
gers and the various communards of 
the 60s. They all felt that they'd sto- 
len the fire of the gods and that 
they'd damn well better set as many 
blazes as they could before the gods 
came to take it back. 

After all, what could possibly be 
more subversive than training chil- 
dren to operate the tools of the estab- 
lishment, without at the same time 
inculcating the establishment's line 
of thinking? But that was what AI- 
brecht, Allison, et al., were doing. I 
don't know if this is what was specifi- 
cally in their minds or not. But con- 
sider. You have all had the following 
experience. You program something 
in BASIC; you find that the program 
doesn't work because of the inevita- 
ble bugs; then, after you pick them 
off, you find that it sti/] doesn't work 
because the limited accuracy of bina- 
ry floating point has turned your nu- * 
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merical results into oatmeal. Nobody 
who has been through that can ever 
look at their bank statement in quite 
the same way again. Or their phone 
bill. Or, if there is a live connection 
between one side of their brain and 
the other, can they ever feel quite the 
same about a proposal for an antibal- 
listic missile system as they might 
once have done before their personal 
encounter with computers in the raw. 

Albrecht and company used time- 
sharing terminals to start indoctri- 
nating children and susceptible 
adults, but then the micro came 
along. The earliest micros were piti- 
ful, but to the eyes of a computer sub- 
versive they appeared to be the sword 
of liberation. A computer you could 
hold in your hand! 

For a parallel, try to imagine that 
Gutenberg had never invented his 
printing press; that the only way for 
books to be reproduced was for them 
to be handwritten by scribes. Of 
course, only the wealthy and the gov- 
ernment can afford to pay scribes and 
buy vellum, so the only thoughts that 
circulate in book form are the ones 
acceptable to the powers that be. 
Then somebody invents the typewrit- 
er: a cheaper, faster way of being a 
scribe, one that anybody can learn. 
So you start a counterculture book 
factory, teaching people to use type- 
writers to duplicate unapproved liter- 
ary works. 

And then somebody walks in the 
door with the latest invention, the 
Xerox copier. And just that simply, 
your revolution has been won; now 
it's just a matter of mopping up. 

In the case of the computer revolu- 
tion, the mopping up is still going on. 
The micro has, in fact, hurt the com- 
puter bureaucrats, the people who 
would try to make you swallow an in- 
convenience on the grounds that the 
computer wouldn't let them be help- 
ful. These days they find it a lot hard- 
er to say "the computer won't let me” 
because so many clients are likely to 
answer “Why not? My computer 
would." There really is a lot less these 
days of what Nelson called cyber- 
crud, and we can credit that to the 
wide popular exposure to micros. 

But there is a lot more to be done. 
We've spread computers all over the 


Dr. Dobb's Journal, May 1985 


place and still have no millenium, nor 
anything remotely like it. There's 
been no great liberation of minds or 
spirits. The revolution has been as- 
similated, just as the automotive, sex- 
ual, drug, and free speech revolutions 
were assimilated before it, and the 
feminist revolution is being assimilat- 
ed now: they come, they pass, things 
are different but not very much so. 
Surely by now the wonderful thing 
should have happened. Surely by now 
somebody should have written the 
program that will set us all free? But 
no. 

One reason for this failure is that 


The GREENLEAF FUNCTIONS GENERAL 

LIBRARY has over 200 functions in C and assembler. 
Strength in DOS, video, string, printer, async, and systems 
interface. All DOS 1 and 2 functions are in assembler for speed. 
All video capabilities of PC supported. All printer functions. 65 
string functions. Extensive time and date. Directory searches. Polled 
mode async. (If you want interrupt driven, ask us about the Green- 
leaf Comm Library.) Function key support. Diagnostics. Rainbow 


the computer did not turn out to be a 
sword that could be placed in any- 
one's hand. It isn't a sword at all, nor 
anything like a simple edged or point- 
ed weapon. For complexity it's more 
like a whole battalion of soldiers. If 
you tell some poor shmuck to start 
wielding one, you put him in the posi- 
tion of a private promoted instantly 
to general and asked to take over 
management of a battle. 

To change metaphors nimbly in 
midstream, we have made the belated 
discovery that the computer priest- 
hood that we deposed was not entire- 
ly a group of fakes; they had more 
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than mumbo jumbo going for them. 
True, they'd made public access to 
the machines difficult, or allowed it 
to be difficult. But now that we have 
our own machines, we find out that 
there were good reasons for that. It 
turns out that quite possibly the most 
difficult thing you can do with a com- 
puter is to make it be truly helpful. If 
you are in a hurry for an answer, you 
will find it a lot easier to program the 
machine to take its input in rigid, un- 
forgiving formats, and to give cryp- 
tic, insulting error messages, than to 


make it flexible and friendly and for- 
giving. 

In fact, we find that in putting on its 
happy face, the machine uses up so 
much capacity that it has precious lit- 
tle left in which to do any useful work. 

Partly this is a real effect. It truly 
is difficult to make a computer be 
helpful, and there are deep, unsolved 
problems in the way of making that 
happen. But in part, I think that the 
revolutionaries were a bit hasty in ex- 
iling those priests. They have a genu- 
ine science, computer science, that 
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deals with the elegant and efficient 
application of machine power. All too 
little of that science is being applied 
today. The result is that we have ma- 
chines with 512K of storage that 
can't keep up with the demands of a 
single user. Damn it, we used to sup- 
port twenty APL users on a single 360 
model 40 with 128K; we considered a 
370/158 with 512K a big machine, 
suitable for use by a middle-sized 
company with half a dozen program- 
mers online to TSO or VM/370. The 
big macro assembler for the IBM 370 
needs a 128K partition to run in. 
That's the assembler program plus all 
the tables and work areas and buffers 
it uses. The macro assembler for the 
IBM PC can barely load itself into 
128K, and it can't assemble anything 
of useful size until you give it 256K. 
In short, there has been a major loss 
of efficiency in moving from the soft- 
ware that the priests built for the cor- 
porate mainframes to the software 
that we are putting on personal com- 
puters today. 

As a good revolutionary, I must be- 
lieve that computer use is for every- 
body, and I really do. But program- 
ming the computers so they can be 
used is almost certainly a job for spe- 
cialists. 

The question that confronts us now 
is: Whose specialists are they going to 
be? Will they be the tools of the new 
computing establishment, working 
for the fiscal advantage of a company 
like IBM or AT&T or Microsoft, or 
for the political advantage of a nation 
like Japan or France? 

Or will they be grass-roots benefac- 
tors like so many who supplied the 
software we have now—and who of- 
ten supplied it through the pages of 
DDJ? I would like it to be the latter. In 
fact, I propose to you that what DDJ 
has always done is to support and 
train and encourage our grass-roots 
systems programmers. And that is 
still the best, and most truly radical, 
thing that it can do in the future. I’m 
delighted to see that its editors agree 
with me. Proof that they do is in their 
publishing Richard Stallman's *GNU 
Manifesto" (DDJ #101, March 
1985), an outrageous, revolutionary 
challenge quite in the old vein. 

My own best writing for DDJ has 
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Why Professionals Choose Aztec C 


AZTEC C compilers generate fast, compact 
code. AZTEC C is a sophisticated development 
system with assemblers, debuggers, linkers, 
editors, utilities and extensive run time libraries. 
AZTEC C is documented in detail. AZTEC C is 
the most accurate and portable implementation 
of C for microcomputers. AZTEC C supports 
specialized professional needs such as cross 
development and ROM code development. 
MANX provides qualified technical support. 


AZTEC C86/PRO 

— for the IBM AT and PC/XT 

AZTEC C86/PRO provides the power, portabili- 
ty, and professional features you need to 
develop sophisticated software for PC DOS, MS 
DOS AND CP/M-86 based microsystems. The 
system also supports the generation of ROM 
based software for 8088/8086, 80186, and 80286 
processors. Options exist to cross develop ROM 
code for 65xx, 8080, 8085, and Z80 processors. 
Cross development systems are also available 
that target most micro computers. Call for infor- 
mation on AZTEC C86/PRO support for XENIX 
and TOPVIEW. 


POWERFUL —  AZTEC C86/PRO 3.2 outper- 
forms Lattice 2.1 on the DHRYSTONE 
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while using 6596 less memory (5.8k vs 14k). The 
AZTEC C86/PRO system also compiles in 1096 
to 60% less time and supports fast, high volume 
I/O. 


PORTABLE — MANX Software Systems pro- 
vides real portability with a family of compatible 
AZTEC C software development systems for PC 
DOS, MS DOS, CP/M-86, Macintosh, CP/M-80, 
APPLE // +, lle, and //c (NIBBLE - 4 apple rating), 
TRSDOS (80-MICRO - 5 star rating), and Commo- 
dore C64 (the C64 system is only available as a 
cross compiler - call for details). AZTEC 
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PROFESSIONAL — For professional features 
AZTEC C86/PRO is unparalleled. 


Full C Compiler (8088/8086 - 80186 - 80286) 

Macro Assembler for 8088/8086/80186/80286 
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compatibility 
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° Detailed Documentation 
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assembler, a linkage editor, a source editor, a mouse 
based editor, a SHELL development environment, a 
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AZTEC C65 development system includes a full floating 
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MANX AZTEC C compilers, a 6502 relocating assem- 
bler, a linkage editor, a library utility, a SHELL develop- 
ment environment, a full screen editor, UNIX I/O and 
utility subroutines, simple graphics, and screen func- 
tions. 


AZTEC CES (Apple DOSS Der Sea pare $199 
AZTEC C65/PRO (Apple DOS + ProDos) .......... $350 
(call for availability) 
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— for CP/M-80 

The first member of the AZTEC C family was the 
CP/M-80 AZTEC C compiler. It is "the standard" com- 
piler for development on CP/M-80. The system includes 
the AZTEC C II C compiler, an 8080 assembler, a linkage 
editor, an object librarian, a full library of UNIX I/O and 
utility routines, CP/M-80 run time routines, the SMALL 
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* Compiler Compatible-- You can access 
functions and externals compiled with C86 
or Lattice C or assembly language. Utilize 
your existing libraries unchanged! 

* Complete Multiple Module Support-- 
Instant global searches, auto-compile 
everything that's changed, etc. 

* Many more features including batch mode 
and symbolic debugging. 

* Runs on IBM PC, DOS 2.x, 192K and up 

* Price: $300.00 (Demo $45.00) MC, VISA 


Price of demo includes documentation and shipping 
within U.S. PA residents add 6% sales tax. 
Specify C86 or Lattice version. 


GIMPEL SOFTWARE 


3207 Hogarth Lane * Collegeville, PA 19426 
(21 5) 584-4261 


* Trademarks: C86 (Computer Innovations) Lattice 
(Lattice Inc.), IBM (IBM Corp.), C-terp (Gimpel Software) 


26 


been inspired by a species of the Rob- 
in Hood ethic: a desire to steal ideas 
from the well-funded and put them 
into the heads of the unfunded. I en- 
joyed writing my recent article on 
Prolog for just that reason. Prolog 
and the ideas behind it had been the 
property of a few academics, and 
these ideas were rapidly being co-opt- 
ed by the Japanese for their Fifth 
Generation. But DDJ gave me a 
chance to snatch those same notions 
and spread them around everywhere, 
making them accessible to everybody 
who can grasp them. Of course the 
real revolutionaries are the people in 
London who publish Micro-PROLOG 
and the ones in this country who are 
selling a version of DEC-10 Prolog for 
the IBM PC. The ideas wouldn't be 
much use without the cheap software 
that implements them, and that 
wouldn't be of any use without the 
cheap micros to run it on. 

So these processes all feed back on 
themselves and get richer and deeper. 
But the continuation of this revolu- 
tion, at least its continuation as a rev- 
olution and not as a captive toy of the 
corporations and the advertisers, de- 
pends on getting ever more sophisti- 
cated ideas and tools into the hands 
of creative people, so that they can 
keep putting ever more sophisticated 
programs back into ours. 

Notice how the ante goes up on ev- 
ery round. The level of sophistication 
is escalated every time through the 
loop. The Mac's internal toolkit, and 
its competitive followers Windows 
and GEM, are vastly harder to use 
well than the old CP/M BDOS func- 
tions. Graphics, AI, and speech rec- 
ognition, in their different ways, re- 
quire the exercise of all the 
algorithmic tools of computer sci- 
ence. And it takes very abstruse, very 
mathematical tools to analyze these 
massive, sophisticated programs and 
prevent them from overflowing the 
capacities of personal hardware, 
which really are quite limited. The 
experience of mainframers has been 
that your hardware is always an or- 
der of magnitude too small for the 
software you'd like to run. There's no 
indication that this law has been re- 
pealed for micros. We will be squeez- 
ing quarts into pint bottles forever, 


and it takes sound theoretical insight 
to do that well. 

I should add that the rule that the 
capacity of the hardware always falls 
short of the needs of the software just 
might be repealed by highly parallel, 
multiple-micro systems. Two things 
about such systems: first, they are 
right on the fringe of computer sci- 
ence and the academics haven't the 
foggiest idea how to build good soft- 
ware for them; and second, they are 
ideally suited for hobbyist-level, ga- 
rage experiments. 

But this is why the face and con- 
tents of DDJ have been changing. 
Whether the editors and contributors 
knew it or not, they've been trying to 
prepare themselves to discuss and un- 
derstand computers at the more so- 
phisticated level permitted by the 
second generation of micros. But 
there's been no change in who is do- 
ing the discussing, nor in their essen- 
tially subversive motive, which is to 
snatch the tools of the establishment 
and apply them in the public domain. 

Its that mischievous, subversive 
motive that has kept me writing for 
DDJ. That, and the belief I still hold 
that, somewhere out there, fingers on 
the keyboard of an Apple or Osborne, 
is a fifteen-year-old kid who is capable 
of writing the program that will turn 
the world upside down. The proper 
role of DDJ is to make sure that that 
kid has free, unfettered access to the 
ideas and the software tools that she 
needs in order to write it. 


DDJ 


Reader Ballot 
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INTRODUCING THE MODULA-2 SOFTWARE DEVELOPMENT SYSTEM 


The first complete programming 
environment brings the industry to 
an all-time low. 


Modula-2 has been hailed as 
the programming language of 
the future. Its modular design Ze assembles the components of 


and built-in error-control fea- your program. Automatically. 
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It not only has a faster 
compiler, it also saves time by 
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Command Line Processing 


by Allen Holub 


A command line switch is an argu- 
ment usually preceded by a ‘—’ that 
modifies the way in which a program 
works. Just about every C program I 
write uses command line switches, 
and all these programs have to pro- 
cess these switches one way or anoth- 
er. For a long time, I wrote a differ- 
ent little subroutine for each 
program, modifying the routine to 
deal with the idiosyncrasies of a par- 
ticular program. After writing the 
same subroutine about a million 
times (and making the same off-by- 
one error with argc every time), I 
thought that there had to be a better 
way. All my processing routines were 
essentially the same in structure; only 
the names of the command line 
switches were different. A general 
purpose command line processor was 
clearly what I needed. 

Looking around in the literature for 
something that did the job, I found the 
“Argum” package, which appeared in 
Anthony Skjellum's C/Unix column 
in DDJ (470, August 1982). The pro- 
gram was well written and did what I 
needed, but it had several problems. 
First of all, it did a lot more than I 
needed and the extra functions added 
extra code. Because this package was 
going to be included in every program 
I wrote, a reduction in scope seemed 
to be a good idea. Another, related, 
problem was the internal tables used 
by Argum. They were created at run- 
time (as compared to compile time). 
This added both extra code and extra 
execution time to any program that 
used Argum. Finally, Argum had no 
convenient way to deal with errors on 
the command line. In view of these 
problems, I decided to write my own 
processor, a description of which fol- 
lows. This is by far the most frequent- 
ly used subroutine in my standard 
library. 
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Getargs( ) 

The command line processor is actu- 
ally a package of subroutines. Access 
to these routines is through a single 
procedure, called getargs( ). The rou- 
tines are table driven. In every pro- 
gram you have to declare a table in 
which the various command line 
switches are described. Getargs( ) re- 
moves the switches from the com- 
mand line as it works. This means 
that position-sensitive arguments 
(e.g., a switch that applies to all files 
that follow it on the command line, 
but not to any files that precede it) 
are not supported. I don't use this sort 
of switch very often, and I got tired of 
having to skip past arguments that 
had already been processed to get to a 
filename. The arguments are evaluat- 
ed left to right, so interaction be- 
tween PROC type switches (see be- 
low) is possible. 

When getargs( ) finds an error on 
the command line, it prints to stderr a 
list of all legal switches, along with a 
brief description of what those switch- 
es do and their default values. After it 
prints the error message, getargs( ) 
terminates the program with an 
exit(1) call. This closes any open files 
and returns to the operating system. 


Command Line Switch Formats 
Command line switches all must take 
the form: 


— <character> [ <number> i 
<string> | 


That is, all arguments start with a 
minus sign; each switch is identified 
by a single letter that follows the mi- 
nus sign immediately (no intervening 
spaces); the letter may be followed by 
an optional number or string, again 
with no spaces between the character 
that serves as the switch identifier 


and the corresponding number or 
string. Switches may be combined, 
provided that the argument types al- 
low this combination. For example, 
the command line: 


program: —a —b123—c 
can also be written as: 
program —abl123c 


However, if getargs( ) expects a 
string to follow the switch identifier 
character, then it assumes that the 
rest of the argument is part of the 
string. You have to be careful when 
combining string type command line 
switches with other types. 


Using Getargs( ) 

To use getargs( ) you must do two 
things: (1) set up a table to tell the 
routine what kind of command line 
switches to expect; (2) call the rou- 
tine itself somewhere early in the 
main( ) module. The file getargs.h 
(Listing One, page 32) contains the 
#defines and typedefs needed to cre- 
ate the command switch descriptor 
table. This table is an array of 
structures: 


typedef struct 

| 
unsigned arg: 7 
unsigned type:4 ; 
int *variable ; 
char *efrmsg — 

| 

ARG; 


The arg field is a single character 
that identifies the switch on the com- 
mand line. In the following descrip- 
tions this character is represented as 
<switch>. The type field may take 
any one of five values, all of which are 
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defined in getargs.h. The behavior 
of getargs( ) will vary according to 
the value. 

INTEGER switches take the form 


— «switch» <number> 


Numbers preceded by Ox are hex, by 
0 without the x, octal. All others are 
decimal. The number is terminated 
by any character not legal in the indi- 
cated radix. Any characters that fol- 
low are assumed to be additional 
switches. The int sized variable point- 
ed to by the variable field of the ARG 
structure will be set to the value of 
the «number». If the <number> 
isn't typed on the command line, 
*variable will be set to O. 

BOOLEAN switches will cause 
some action based on the presence or 
absence of the indicated switch on the 
command line. If the switch is pre- 
sent, then the int pointed to by the 
variable field is set to 1, otherwise 
*variable is not modified. 

CHARACTER switches take the 
form 


— «switch» «character 


When the switch is found on the com- 
mand line, then *variable is set to the 
character immediately following the 
<switch> character. 

STRING switches take the form 


— «switch <string> 


When the switch is found on the com- 
mand line, the character pointer 
pointed to by the variable field is set 
to point at a string consisting of all 
characters following (but not includ- 
ing) the <switch> character up to 
the end of the current argument (not 
to the end of the command line). In 
the case of combined switches in a 
single argument, the STRING argu- 
ment must be the last one because all 
following characters will be consid- 
ered part of the <string>. When de- 
fining a STRING switch in the table, 
be sure to cast the variable into an 
integer pointer. See Listing Three 
(page 38), line 15, for an example. 
PROC switches take the form 


— «switch <anything> 
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This works like the STRING switch in 
that all characters following 
<switch> up to the end of the cur- 
rent argument will be part of the 
<anything>. However, the variable 
field is a pointer to a subroutine that 
is called indirectly as soon as the 
switch is encountered on the com- 
mand line. A pointer to <anything> 
is passed to this subroutine as a single 
argument. An example of such a sub- 
routine is given in Listing Three, line 
19. It is the responsibility of the 
called subroutine to parse <any- 


All of these companies rely on BetterBASIC 
to write their software programs. They have 
found that BetterBASIC combines the features 
they need from BASIC, Pascal, C and Forth in 
one familiar environment. Some of these fea- 
tures include the following. 

640K Now you can use the full memory 

of your PC to develop large programs. 
STRUCTURED Create well organized 
programs using procedures and functions 
that are easily identified and understood and 
completely reusable in future programs. 
MODULAR Use procedures and functions 
grouped together to form “library modules." 
INTERACTIVE ` BetterBASIC acts like an 


in an immediate mode. However, each 
statement is actually compiled as it is entered. 
EXTENSIBLE Create your own 
BetterBASIC modules which contain 


BetterBASIC extensions 


(ideal for OEMs). 
COMPILED Fach line 
of the program is 
compiled as it is entered 


Yourein Good Company 
When You Program 


in BetterBASIC 


interpreter, responding to the users' commands 


ALSO AVAILABLE FOR THE TANDY 2000, 1200 AND 1000 


thing> as appropriate. 

The errmsg field is used to print an 
error message if an undefined switch 
is found. An example of the format is 
shown in the Figure (page 30). This 
message was generated when the 
command line "argtest — x” was giv- 
en to argtest. 

Listing Three (if you haven't real- 
ized it by now) is an example of how 
to use getargs( ). Lines 5-9 are decla- 
rations of the objects that are used in 
the variable fields of the switch de- 
scriptor table. The initial values of 


ti å 


into the computer's memory rather than 
interpreted at runtime. The optional Runtime 
System generates EXE. files. 


BetterBASIC Runs on IBM PC, IBM 
PC/XT and compatibles. 

CALL 1-800-225-5800 Order Better 
BASIC now, or write Summit Software Tech- 
nology, Inc.™, P.0. Box 99, Babson Park, 
Wellesley, MA 02157. Prices are listed below. 


BetterBASIC: $199 Runtime System: $250 
8087 Math Module: $99 


Still not convinced? Order the BetterBASIC 
sample disk which includes a demo, a 
tutorial, compatibility issues, 50 lines of 
BetterBASIC and more. Only $10. 


MasterCard, VISA, P.O. Checks, Money Order, C.0.D. 
accepted. 


BetterBASIC is a registered trademark of Summit 
Software Technology, Inc. 


IBM PC and IBM PC/XT are registered trademarks 

of International Business 
Machines Corp. Tandy is a regis- 
tered trademark of Tandy Corp. 
Illustrated above are registered 
trademarks of the following com- 
panies: Mobil Oil Corp.; A T & T; 
General Electric Co.; Westing- 
house Electric Corp.; TRW, Inc. 
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PROGRAMMERS 


db VISTA 
The first DBMS designed 
exclusively for the C language. 


PREFERRED over ISAM and file utilities 
POWER like a mainframe DBMS 
PRICED like a microcomputer utility 
PORTABILITY like only C provides 


FEATURES INCLUDE: 


Written in C, for C. 

Maximum data efficiency using the 
network database model. 

Virtual memory disk accessing. 

Fast B^-free indexing method. 
Multiple key records-any or all data 
fields may be keys. 

ROYALTY FREE RUNTIME. 

SOURCE CODE INCLUDED. 

Three month extended applications 
support included. 


FREE OFFER 


MENTION THIS AD and choose any one of 
the following C tools from Lattice at no 
additional charge, when you order 

db VISTA 


e Lattice C Compiler 

e C-Sprite Program Debugger 

e Lattice Window Manager 

e Curses Unix- compatible Screen 


Manager (source code included ) 
Panel Forms Manager 
CVUE Screen Editor 


db VISTA with source code: 
db VISTA without source code: 


OR 
COMPLETE C Development package 
including: 
db VISTA, Lattice C compiler, 
C-Sprite, CVUE, & Curses 
a $1520.00 value for only $895.00 


$495 
$395 


db VISTA available for PC-DOS/MS-DOS, 
for most popular C compilers including Lattice, 
DeSmet, Computer Innovations, AZTEC. Also 
available for most Unix systems and CTOS. 


RAIMA 


CORPORATION 
11717 Rainier Avenue South 
Seattle, WA 98178 
206/772-1515 


CALL TOLL-FREE 
1-800-843-3313 
at the tone: 700-992 
ask for Jim 


MONEY BACK GUARANTEE 
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these variables remain unchanged if 
the switch is not encountered on the 
command line at runtime. The table 
itself, Argtab, is declared on lines 10- 
17. The main( ) routine calls get- 
args( )on line 35. The rest of main( ) 
just prints the command line, both 
before and after the getargs( ) call, so 
you can see how getargs( ) strips pro- 
cessed switches out of argv. 

Getargs( ) itself starts on line 98 of 
Listing Two (page 32). It is passed 
four arguments: argv, argc, a pointer 
to the switch descriptor table (tabp), 
and the size of this table in elements 
(not bytes). The routine returns a 
new value of argc, and argv is com- 
pressed, i.e., all entries containing 
command line switches are removed 
from it. The for loop on line 112 pro- 
cesses argv one element at a time. 
Nargv points into argv and strips pro- 
cessed switches. Nargv is initialized 
to point at argv[1] because argv[0] 
can't possibly contain a command 
line switch (it holds the program 
name). If no leading minus sign is 
found in the argument, *argv is cop- 
ied to *nargv and both pointers are 
advanced. In addition, nargc (new 
argc) is incremented. If the argument 
does begin with a minus sign, it is 
processed as a command line switch. 
In this case *argv is not copied to 
*nargv, and argv, but not nargv, is 
advanced. This effectively eliminates 
the argument containing the switch 
from the argv array. 

Findarg( ) (Listing Two, line 44) is 
used by getargs( ) to see if an argu- 
ment is in the table. It performs a lin- 
ear search. Because the table is usu- 
ally fairly small, it seemed as if the 
extra code needed for a binary search 


wasn't justified. Findarg( ) takes 
three arguments: c is the switch iden- 
tifier character being searched for; 
tabp and tabsize are the same param- 
eters as were passed to getargs( ). 

Setarg( ) (Listing Two, line 9) is 
called when a command line switch is 
found in the table. Argp is a pointer 
into the table, as returned from find- 
arg( ). Linep is a pointer into the argv 
entry that is being processed. Casts 
were used to make this routine as 
transportable as possible. 

Pr. usage( ) (Listing Two, line 57) 
is used to print the error message 
shown in the Figure when an illegal 
command line switch is found. It just 
spins through the table, printing the 
current contents of the object pointed 
to by the variable field as well as the 
message given in the errmsg field. 

The final routine in the package is 
stoi( ) (for string to integer, Listing 
Four, page 38), which is used to pro- 
cess INTEGER switches. Stoi( ) is a 
fancy version of the standard library 
routine atoi( ) (described on page 58 
of Kernighan & Ritchie). Stoi( ) can 
handle numbers in base 8, 10, or 16. 
If code size is a real issue, you may 
want to remove the code that process- 
es octal numbers (Listing Four, lines 
45-53). Another major difference be- 
tween stoi( ) and atoi( ) is that stoi( ) 
Is passed a pointer to a character 
pointer. That is, it is passed the ad- 
dress of the pointer, which in turn 
points into the string to be processed. 
This extra level of indirection lets you 
modify the character pointer itself to 
point past the end of the number be- 
ing processed. If you use atoi( ), you 
have to go through the string twice, 
once to extract the number and once 


Illegal argument <x>. Legal arguments are: 


boolean argument 
character argument 
integer argument 
string argument 
procedure argument 


—s<str> 
—p<str> 


(value is FALSE) 

(value is .) 

(value is O) 

(value is <doo wha>) 


Figure 
Error Output from Program in Listing Three 
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Let Us Mind Your Q's and T's 


Quality Tools from QCAD Systems, Inc. 


| QTOOLS" 


A UNIX-like toolset that runs 
under MS-DOS, making full use of 


DOS I/O redirection and 
environment variables. Great for 
pattern search, substitution, 
translation, file listings, and 
maintenance. On-line help and 
detailed user manual with 
extensive examples. Increases 
programmer productivity by 


providing a concise way to specify 
complex file manipulations. Some 
tools are versions of UNIX 
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grep, head, Is, more, mv, pr, split, 
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PC. 


$49.50 


T ypesetting 


A typesetting system for the IBM 
PC and HP LaserJet printer. 
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be printed quickly and easily with 
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underlining, headers, footers, 
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right margin alignment, page 
numbers, line spacing, indentation, 
automatic index generation, table 
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(Requires HP font cartridge -- call for details.) 
Runs on the IBM PC and HP 9816. 


$79.95 
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An LALR(1) parser generator that 
works from grammar, semantics, 
and skeleton files. Skeleton files 
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Multi-level interactive debugging 
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mechanism. Sample translators 
included. Generates a complete 
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source code. Extensive documen- 
tation and examples. Turbo Pascal 
included. Educational discount 
available. Accompanying textbook 
(2nd ed.) available in late 1985. 
Runs on the IBM PC, DEC Rainbow, 
and HP 9816. 


Full System $995.00 
Demo System $ 25.00 


WRITE OR CALL FOR MORE INFORMATION. 
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more to skip past the characters that 
represent that number. 


Conclusion 

Several additions could be made to 
getargs( ), at the cost of an increase 
in complexity and code size. 


° A common command line function 
is to open or close a file in a partic- 
ular mode and to abort if the file 
can't be opened. At present I'm do- 
ing this with a PROC type com- 
mand line switch, but you could 
add another argument type, whose 
variable field points to a FILE 
pointer. Alternately, variable could 
point to a structure that included 


C Chest 


the FILE pointer, an open mode, a 
pointer to an error processing rou- 
tine, and a default file name. 
Another nice feature would be to 
mark an argument if its presence 
is required on the command line. 
You could accomplish this by add- 
ing additional types (ie. REQ 
_INTEGER), or by adding anoth- 
er field to the ARG structure. An 
error message would be printed if 
the argument wasn't found on the 
command line. 

Getargs( ) depends on initializers 
to set default argument values. If 
your compiler doesn't support ini- 
tializers, you can add a default val- 
ue field to the ARG structure. 


* [ have violated my smallness rule 
by using stoi( ) to process numeric 
arguments. If you expect only dec- 
imal numbers, you may want to 
replace stoi( ) with atoi( ). How- 
ever, stoi( ) is a useful] routine in 
its own right. 


I'm sure that you can think of other 
bells and whistles. I’ve been using get- 
args( ) for a of couple years now and 
am satisfied with it in its existing 
state. Defining the way the command 
line looks and then getting switches 
from it is now a painless process. DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 


(Text begins on page 28) 
Listing One 
lo We Getargs.h Typedefs and defines needed for getargs 
2: */ 
3:  fdefine INTEGER 0 
4: #define BOOLEAN 1 
5: #define CHARACTER 2 
6: #define STRING 3 
7: #define PROC 4 
8: typedef struct 
9: 
10s unsigned arg 43-3 /* Command line switch * / 
11: unsigned type ees /* variable type */ 
17: int *variable ; /* pointer to variable * / 
ES: char *errmsg : /* pointer to error message * 7 
Iv i3 
153 ARE: End Listing One 


Listing Two 


1 "ra GETARGS.C Command line argument processor for C programs 
"s * 

24 * (C) Copyright 1985, Allen I. Holub. All rights reserved. 

Y. e This program may be copied for personal, non-profit use only. 


6: #include <stdio.h> 
7: #include <getargs.h> 
8: typedef int (FFE); 


9: static char 


*setarg( argp, 


linep ) 


past the argument being set. 


Set an argument. argp points at the argument table entry 


10:- -ARG *argp; 

llt celat *linep; 

12: ( 

13: /* 

La £ corresponding to *linep. Return linep, updated to point 
16: * 

17: ++linep; 
18: switch( argp->type ) 
32 
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case INTEGER: 
*argp->variable = stoi( &linep ); 
break; 


case BOOLEAN: 
*argp-»variable 
break; 


H 
I 
we 


case CHARACTER: 
*argp->variable = *linep++ ; 
break; 


case STRING: 
*(char **)argp->variable = Linen? 
linep Re wit. 


break; 


case PROC: 
(* (PFI)(argp->variable) )( linep ); 
"i. 


linep - ; 
break; 
default: 
fprintf(stderr, "INTERNAL ERROR: BAD ARGUMENT TYPE\n"); 
break: 


) 


return( linep ); 


y REE JE Ar ERIS NER URL C NC AS ge D * / 
static ARG *findarg( c, tabp, tabsize ) 
int C, tabsize: 
ARG *tabp; 
{ ) i 
/* Return pointer to argument table entry corresponding 
* toe (or DAF cC lon B18 tei) 


*7 


for(; --tabsize >= O j; tabp++ ) 
if( tabp->arg == c ) 
return tabp; 


return 0; 
) 


static pr usage( tabp, tabsize ) 


ARG *tabp; 
int tabsize; 
{ 
[* Print the argtab in the form: | 
* -<arg> <errmsg> (value is <*variable>) 
Zë 
for(; --tabsize >= O ; tabp++ ) 


{ 

switch( tabp->type ) 

( 

case INTEGER: | 
fprintf(stderr, "-Zc<num> Z-40s (value is ", 

tabp->arg, tabp-»errmsg); 

fprintf(stderr, "Z-5d)WMn", *(tabp-»variable) J); 
break; 


case BOOLEAN: | 
fprintf(stderr,"-Zc %-40s (value is ", 
tabp->arg, tabp-»errmsg); 
fprintf(stderr, "Z-5s)WMn", *(tabp-»variable) 
7? "TRUE": "FALSE 
break; 


case CHARACTER: š 
fprintf(stderr, "-Zc<c> Z-h0s (value is ", ` 
tabp->arg, tabp-»errmsg); 
fprintf(stderr, "Z-5c)\n", *(tabp-»variable) ); 
break; 


case STRING: ; | 
fprintf(stderr, "-Zc<str> Z-40s (value is ", 
tabp->arg, tabp-»errmsg); 


(Continued on page 36) 
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BASE Ui 


MORE POWER UL 


dBASE ILI ISA DORAMAT/C AND POWERFUL 
NEW BUSINESS PROGRAMMING LANGUAGE. 


—Bob Davies, President/SBT Corporation 


AFTER A TWO-HOUR 
HANDS-ON SESSION WITH 
dBASE I1, IT IS EV/DEN7 THAT 
ASHTON-TATE HAS MADE A S/GV/F/CANT 
ADVANCEMENT IN THE TECHNOLOGY 
OF MICROPROCESSOR-BASED DBMS. 


—Robert Dew, Vice President/The Computer Society 


RATHER THAN BEING 
AN /MITATOR, ASHTON- TATE. 
HAS ONCE AGAIN SHOWN ITSELF TO 
BE AN /AWOVATOR. 


—Larry Heimindinger/Origin, Inc. 


ASHTON- TATE 
HAS LISTENED TO 
THEIR USERS. THIS 
PRODUCT ADØRESSES EVERY 
ITEM ON MY WISH-LIST. 


—Mark DaVia/National Microware, Inc. 


ASHTON-TATE 


HAS USHERED IN A RENA/SSAVCE. 
THE NEXT GEWERAT/OV OF SOFTWARE 
IS NOW A REALITY. 


—Chris MacNeil/Abel Computers 


THE NEW REPORT 
GENERATOR IS SUPER TO 


USE AND MODIFY. 
LABEL GENERATION IS 
ALSO A NICE TOUCH. 


—Michael Broska/Agate Systems, Inc. 


E A EEE EG ØRENE NN Ad AE i a ER a 
dBASE IIT" is the powerful and easy-to-use relational database management system you've been 
waiting for. You can use it without hesitation whether you're a beginner or an expert. 


The big winner in the easy-to-use vs. more powerful controversy is you. 


If you want to know all about dBASE III, come to your Ashton-Tate software dealer for a free demon- 
stration. For more information call (800) 437-4329 ext. 2333 or in Colorado call (303) 799-4900 ext. 2333. 
dBASE III and Ashton-Tate are trademarks of Ashton-Tate. O 


Ashton-Tate 1984. All rights reserved. 


s. (BASE III 


LASY TO USE! 


dBASE III 15 MUCH LASER 
TO OPERATE AND UNDERSTAND. 
PROGRAMMING WITH IT IS A BREEZE. 


—Michael Broska/Agate Systems, Inc. 


dBASE TN IS BY 
FAR THE £4S/Z57, MOST 
COST-EFFECTIVE 
WAY TO MANAGE. A 
LARGE. DATA BASE. 


—Robb Auspitz/McEntyre Designs 


THE. NATURAL. CHOICE 
OF THE NOVICE. USER 
WITH EXPANDABLE NEEDS. 
dBASE III IS REALLY 
dBASE II] EASY TO USE! 
SUCCESSF ULLY —Alex Gersen/Alex Systems 
COMBINES THE 
FEATURES OF A POWERFUL 
DATABASE MANAGER WITH THE SIMPLICITY 
AND USER-FRIENDLINESS OF A FILE MANAGER. 
IT SETS THE STANDARD AGAINST WHICH ALL 
OTHERS WILL HAVE TO BE COMPARED. 


- Jerry Schneider, Vice President/WBS & Associates 


ASHTON- TATE 
HAS OSV/OUSLY LISTENED 
TO THE END USERS. 


—Dave Browning, Chairman/ 
Database SIG, Capital PC Users Group 


THE DEGREE 
OF RESPONSIVENESS 
WHICH ASHTON- TATE HAS SHOWN 
IN ITS WILLINGNESS 70 LISTEN AND ADAPT 
TO USER WEED SHOULD GUARANTEE ITA 
COMMITTED FOLLOWING IN THE. 
MICROCOMPUTER COMMUNITY. 


-Phillip Wood, Director of Data Processing/Search Institute 


Software from 


ASHTON TATE 


Circle no. 4 on reader service card. Well put you in control. 
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Listing Two 


121: 


E2424 
129: 
124: 
1235: 
126: 
1273 
128: 
129: 
130: 
Lal: 
132: 
E33: 
134: 
135: 
136: 


) 
) 
#define ERRMSG 


int 
int argc, 
char **argv 
ARG *tabp 
( 

/ 


switches out of argv. 


H 
, 


"Illegal argument «2c». 


(Listing Continued, text begins on page 28) 


fprintf(stderr, "<Zs>)Nn", 


*(char **)tabp->variable); 


break; 


case PROC: 


fprintf(stderr, 


" Ze<str> %-40s\n", 


tabp->arg, tabp->errmsg); 


break; 


getargs(argc, argv, tabp, tabsize ) 
tabsize ; 


Return a new argc. 


Legal arguments are:\n\n" 


Process command line arguments. Stripping all command line 


If an error is found 


is printed showing all arguments in the table. 


register int 
register char 
register ARG 


nargc s 


for(nargv - 


( 


) 


nargc - 
K**nargv, *p. 3 
*argp 
LS 
+targv ; --argc > O ; argv++ ) 
LEI **argv fæ '-' ) 
( 
*nargv++ = *argv ; 
nargc++; 


else 


) 


p = (*argv) + 1 ; 


while( *p ) 
( 
if(argp 


p = 
else 


( 


findarg(*p, 


tabp, 
setarg( argp, 


* 
* 
* exit(1) is called (getargs won't return) and a usage message 
* 
* 


tabsize) ) 
Pp 


fprintf(stderr, ERRMSG, *p ); 
pr usage( tabp, tabsize ); 


exit( 1 


); 


return.nargc.; 


Listing Three 


m 
ee 
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/* 
* 


ARGTEST.C 


finclude <stdio.h> 
finclude "getargs.h" 


int boolarg 
int chararg 
int intarg 
char *strarg 
extern proc(); 
ARG Argtab[] 


Test program for getargs. 


0; 
Bg 


/* Variables 


; 
= "doo wha" ; 


used 


End Listing Two 


by argtab */ 


(Continued on page 38) 
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Add EDITING 
to your 
Software 

with 
GSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 
screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 
Time to cover the first 50 copies that you 
distribute. 

Use capabilities like Full cursor control, 
block move, insert, search/replace or 
others. Portability is high for OSes, ter- 
minals, and source code. 


PROFESSIONAL PROGRAMMER'S BULLETIN: 


Be Productive, Be 


BRIEF's power and flexibility provide 
dramatic increases in programming 
productivity. BRIEF's ergonomically designed 
human interface becomes a natural extension 
of your mind, allowing you to eliminate 
tedium and concentrate on creativity. 


AVAILABLE FOR PC-DOS, IBM-AT, 
AND COMPATIBLE SYSTEMS 


ONLY £195. 


DEMO AVAILABLE FOR ONLY $10 
(applicable to future purchase) 


Call for the '' CSE Technical Description 
and for licensing terms and restrictions. 
Versions for PCDOS, MSDOS, CPM, more. 
Full Refund if » e 

not satisfied in Solution 
first 30 days. Systems 
Call 800-821-2492 335-D Washington Street 


Norwell, MA 02061 
617-659-1571 


* Multiple files, 
unlimited size 


e "Regular 
Expression" search 


* Reconfigure 
keyboard C i ti 

* Language sensitive O U ION 
user controllable Systems it 


features (such as 
Auto-Indent for C) 


* WINDOWS 

* Full UNDO (N Times) 

* Compile within 
BRIEF 


CALL TOLL FREE 
800-821-2492 


for "Technical Description" or to order, 

* Keystroke Macros 

* Exit to DOS inside 
BRIEF 

* Programmable Macro 
Language 


I BRIEF is a trademark of UnderWare, 
f Solution Systems is a trademark of Solution Systems 


335-V. Washington St., Norwell, MA 02061 
617-659-1571 


Circle no. 93 on reader service card. 


PROLOG-86" 


Become Familiar in One Evening 


Thorough tutorials are designed to help learn the PROLOG 
language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 
able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


ll an EXPERT SYSTEM 


li a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II "DISPLAY" command) 


B a GAME (it takes less than 1 page of PROLOG-86) 


PROTOTYPE Ideas and Applications QUICKLY 


1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
"C" or PASCAL. It is a different way of thinking. 


Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 


Programming Experience is not required but a logical mind is. 
PROLOG-86 supports the de facto STANDARD established in 
"Programming in Prolog." 


AVAILABILITY: PRoLoG.86 runs on MSDOS, PCDOS. 


IBM AT or CPM-86 machines. We provide most formats. The price 


of PROLOG-86 is only $125. : 
Solution 
Full Refund if not Systems" 


satisfied during 
first 30 days. 


800-821-2492 


Circle no. 75 on reader service card. 


DIFF and CMP — - for 


C Flow Chart- RONS WROFOD EROR call each other. 
C Beautifier — make source more regular and readab/a. 
GREP - search for sophisticated patterns in text. 


There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 


C Helper is written in portable C and includes both full 


source code and executable files T 

for $135 for MS-DOS, IBM AT Solu ion 

CPM-80 or CPM-86. Use a 
Systems 


VISA, Master Card or COD. 

Call: 800-821-2492 335S Washington Street 
Norwell, MA 02061 
617-659-1571 


335-D UJashington Street 
Norwell, MA 02061 


617-659-1571 


Circle no. 94 on reader service card. 
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C C. hes [ (Listing Continued, text begins on page 28) 
Listing Three 


ye oe 

12: ( "b", BOOLEAN, &boolarg, "boolean argument" fo 
13: (ct, .-GHARACTER, &chararg, "character argument" bs 
14: { Lal A, INTEGER. &intarg, "integer argument" ke 
15: (80 SPRING, (int *)&strarg, "string argument" T 
16: [-"p* - PROC. (int *)&proc, "procedure argument" ) 
Ee: 


18: #define TABSIZE ( sizeof(Argtab) / sizeof(ARG) ) 


192: p£oc( str ) 


205. char *str; 
at ud 
22: printf("Inside procedure called by -p command line switch, "); 
23% printf("string = <Ze>In", str ): 
SBS el 
25: main(argc, argv) 
416*.-. int argc; 
2/3. char **argv; 
20: 1 
29: register int is 
30: printf("Argc se Ad. ", argc); 
31: printf("Cmd line: argtest "); 
32i Port tw 1. *« 1 € argc i; printi ge", sr&viisel) ) 
33 ° 
34: printf(" Xn"): 
SAt argc = getargs( argc, argv, Argtab, TABSIZE) ; 
36: printf("Argc == Zd. ", argc); 
37: prinrtf("Omd. line: arptest "); 
38: for( As E ot < Brøt 3 printi AS ", argv[iecrt]) I 
39: ; 
40: printr Eya"; 
ble] 
Listing Four 
1 /*.:STOI.C More powerful version of atoi. 
2 * 
3 * Copyright (C) 1985 by Allen Holub. All rights reserved. 
4: * This program may be copied for personal, non-profit use only. 
5: ni 
6 #define islower(c) (tat ee Ce AE Cem € s») 
7 #define toupper(c) (-iestower(c)T Cc) -( gle SAT E 2 DES) 
8: tht stoi(instr) 
9: register char **instr; 
tte) 
Iit /* Convert string to integer. If string starts with Ox it is 
12: , interpreted as a hex number, else if it starts with a O it 
äs * is octal, else it is decimal. Conversion stops on encounteri! 
14: * the first character which is not a digit in the indicated 
15: * radix. *instr is updated to point past the end of the number 
16: * / 
pns register int num = O ; 
18: register char *str ` 
19: int sign = 1 ; 
20: str = *instr; 
21: while(*str »- ' ' || str.» "Net Hl *astr == Daf? 
y a s Str++ ; 
234 IEC *gtr x» '-* +) 
24: 
254 sign - -] ; 
26: strat; 
38 


End Listing Three 
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ZS ) 


28: if(*str == '0') 

29: ( 

30; ++str; 

31: if (*atr »s 'x! ||] 

32: ( 

934 str++; 

34: while( ('O'< 

35% ('a'<= *str 
ME 


38: num *= 16; 


*str == "EI? 


&& *str <= 'f' 


= *str && *str <= "9") | 
) 


) 
*str && *str <= 'F') 


39: num += ('O'<= *str && *str <= '9') ? 
40: ‘str. -.tD* : 
41: toupper(*str) - 'A' + 10 ; 


45: else 


47: while( 'O' <= *str 
48: ( 
49: num *= 8; 


50: num += *str++ = t O t 


54: else 
56: while( 'O' <= *str  && 
: ( 


58: num *= 10; 
59: num += *str44 =- 'O' 


61: ) 


62: *instr = str; 
63: return( num * sign ); 


2 Megabyte 


Have you been waiting on your slow floppy disk 
drives too long? SemiDisk Systems has a disk 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. 


Have you been waiting for a SemiDisk big enough 
to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk 
Systems is now delivering 2 megabytes of disk storage 
on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you ve 
tried a SemiDisk you'll know why we say. . . 


{ master charge | 


&&  *str. (e 2^ ) 


End Listings 


SemiDisk! 


Someday you'll get a SemiDisk. 
Until then, you'll just have to 


SemiDisk I, S-100 $995 
SemiDisk II, S-100 $1295 
IBM PC, XT, AT $945 
QX-10,QX-16 $799 
TRS-80 1112,16 $995 
Battery Backup Unit $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, Beaverton, Oregon 97075 


503-642-3100 


$2549 
$2499 
$2499 
$2499 


Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 


Circle no. 85 on reader service card. 
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Using 

Decision Variables 
In Graphics 
Primitives 


by Tom Hogan 


“Graphics algorithms" is not a listing 
you'll find in the Collected Algorithms of 
the ACM, but graphics programming 


presents unique problems to the | 


software developer. 
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robed, grey-bearded men. A small platform stands 

at one end. Billows of purple smoke appear and out 
of the mist steps a tall man with white hair. He speaks and 
his voice fills the cavern. 

"Welcome, brethren. Tonight we shall consider how to 
guarde our Realme of Graphix from the uninitiated who 
would learn our Mysteries and divulge them. We will 
speake of Master Bresenham, who revealed to us the Se- 
crete of ye Mystik Circle." 

Does the idea of graphics wizards jealously guarding 
their secrets seem strange? I can tell you that it didn't 
seem so to me when I searched the literature for a routine 
that would map ellipses and couldn't find one. 


D icture a vast subterranean cavern packed with 


Light in the Tunnel 

Thanks to a tip, I learned about Fundamentals of Inter- 
active Computer Graphics by James D. Foley and An- 
dries Van Dam (Addison Wesley, 1982). It contains an 
algorithm for plotting a circle using a decision variable 
(based on Bresenham's algorithm). I used the decision 
variable method (hereafter referred to as the DV method) 
to derive the algorithm for plotting ellipses that is found 
in Listing One (page 45). 


The DV Method Generalized 

Although the DV method was used only to plot an ellipse, 
it can be used to plot other conic sections as well. In fact, 
the DV method can be used to generate any well-behaved 
curve that can be expressed as G(x, y) = 0. 


The DV Method Compared 

Speed is important in graphics applications. The DV 
method is fast because it adds, shifts, subtracts, and mul- 
tiplies integers, taking much less time than would be re- 
quired by floating-point calculations. 

An obvious method for plotting an ellipse is to calculate 
each point independently by incrementing x in unit steps 
and calculating y using square roots. This method is slow 
and generates a curve that is nonuniform when the slope 
of its tangent line falls below — I (see Figure 1, page 41). 

In contrast to the preceding method, the DV method 
does not calculate points independently. Instead, each 
succeeding point is mapped with reference to the point 
previously mapped. Furthermore, this method guarantees 
that succeeding points are adjacent. Therefore, the gener- 
ated curve is more uniform than the curve generated by 
calculating points independently (see Figure 2, page 41). 


Reduce the Number of Sample Points 

Eight adjacent points surround any previously mapped 
point. In order to use the DV method to map the curve, 
you must reduce the number of sample points from eight 
to two. The sign of the decision variable can only be posi- 


Tom Hogan, C Source, 12801 Frost Road, Kansas City, 
MO 64138. 
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tive or negative. The two possibilities correspond to the 
two sample points. 

Take the case of an ellipse mapped only in the first 
quadrant. Points 1, 2, 3, 4, and 6 (see Figure 3, page 42) 
can be discarded immediately when mapping from Point 
A to C (see Figure 4, page 42), because x never decreases 
and y never increases as the ellipse is mapped in that 
direction. Points ] through 3 would require y to increase, 
while points 1, 4, and 6 would require x to decrease. 

This reduces the choice to three points: 5, 7, and 8. 
Which two are chosen as the set of sample points depends 
on the slopes of the line segments joining them and the 
last point plotted: the slope of the tangent line must fall 
within the range of the slopes of the two line segments for 
the region plotted. The slopes of the line segments of any 
two points must approach the slope of the tangent line as 
closely as possible. Thus, a set comprising Points 5 and 7 
would be excluded because it would violate this require- 
ment in the region close to B in Figure 4. There remain 
the possible combinations 5 and 8 and 7 and 8. Points 5 
and 8, corresponding to Points S and T in Figure 5 (page 
42), can be said to comprise set A. Points 7 and 8, corre- 
sponding to Points T and U in Figure 5, can be said to 
comprise set B. 


Figure 1 
Changing Sets of Sample Points Circle generated by 


From Point A to B (Figure 4), set A is used because the calculating points independently. 
slope of the tangent falls within the range delimited by the : 
slopes of PS and PT (Figure 5). The decision variable is 
initialized to its value at Point A (see Equation 9 or 10 in 
the Table on page 44). The quantities to be added to it are 
based on the sample points in set A (Equations 6 and 8). 

When the slope of the tangent line reaches — 1 (at Point 
B in Figure 4), set B is used (see Figure 6, page 42). The 
value of the decision variable is recalculated (Equation 11) 
at Point B for set B. The quantities that are added to the 
decision variable are now based on set B (Equations 13 and 
15). 


Expansion on General Applications 

Please note a key feature of the DV method: the choice of 
the sample points depends on the slope of the tangent line 
and the direction of its change. A curve can be broken up 
into sections for plotting, based on the range of the slope 
of the tangent line in each section. The method is useful 
for a broad spectrum of curves. 


Example: The Ellipse 

The initial value of y depends on the position of the major 
axis. If it is vertical, y is Rm, half the length of the major 
axis. If horizontal, y equals R,, multiplied by the aspect 
ratio. The positions of the major and minor axes depend on 
the aspect ratio. If it is less than one, then the major axis is 
horizontal. If greater than one, it is vertical. 

Long variables were used in this routine instead of inte- 
gers or doubles in order to provide the widest range of 
values for the aspect ratio and R,, while retaining reason- 
able plotting speed. Integers limited the ellipse's size too 
much, while doubles were too slow. 


Figure 2 


Circle generated by c 
the Decision Variable Method. — 
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The lower limit for the aspect ratio is 0.004 and Rm 
must not exceed 154. Otherwise, the values of some of the 
long variables will overflow. 

This algorithm takes advantage of the symmetry of an 
ellipse. The ellipse is symmetric about the x and y axes, 
and about its center. Therefore, an ellipse need only be 
mapped in the first quadrant. The other three quadrants 


f 


| Figure 3 
Last point plotted with eight adjacent points. 


Set A T 


PIU o5 y S(X,.4 + 1, Vi) 


The slope of PS is 0. 
The slope of PT is —1. 


N 
Ideal Ellipse 


P, 1 is the last point plotted. 
S; and T; are the sample points. 


Figure 5 
Last point plotted and sample points in the region 
where the slope of the tangent line 
is greater than —1. 
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are easily plotted. 
Clipping is done by the routine in Listing Two (page 
48). The algorithm assumes medium resolution. DDJ 


(Listings begin on page 45) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


Set A of the sample points is used 
over AB. Set B is used over BC. | 


A Slope = 0 


B Slope = —1 


C Slope = Undefined 


Figure 4 
First quadrant of an ellipse. 


N 


POOL POM 


The slope of PT is —1. 
The slope of PU is 
undefined. 


TG MY 2 


Ideal Ellipse 
\ 


P, 4 is the last point plotted. 
U; and T; are the sample points. 


Figure 6 


Last point plotted and sample points in the region 
where the slope of the tangent line is less than 
or equal to — 1. 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use in a 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 


ll Interface to assembly 


E Source level debugger language and 'C 


E Virtual databases, each W Text screen 

with a workspace of 16 manipulation 

megabytes 

gay ll Integrated program- 

B Floating-point ming shell to MSDOS 

arithmetic 

' ll Comprehensive set of 

lB String support for evaluable predicates 


efficient text handling Definite clause 


grammar support 


Arity/Prolog Interpreter $495.00 
Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. W Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. lil To order, call (617) 371-2422 or use the order form below. 


— arity corporation 358 Baker Avenue, Concord, MA 01742 


| Product |  UnitPrice — | Total Price 


Subtotal 


Name 


Organization 


Address 


O Enclosed is a check or O Please bill my 
money order to Arity Corporation O Mastercard ()Visa 0 American Express 
MA residents add 5% sales tax 
i / t J Sea EEE C AES M HUIUS RIESGO ce CE š 
ee j signature O Please send me more information about 
Arity and Arity/Prolog 
—— — GiPIty 358 Baker Avenue, Concord, MA 01742 MAD 


Circle no. 16 on reader service card. 


own. ons of a an eles Geess 


S me — Eq. 1. 


Therefore define an error term DIP) such that at any sample ` 


| = P; along the curve: 


| DP) = aY? Be E Eq. 2 
Define two points S; and T; relative to P;_; such that P; will 
be selected from one of these two points (see Figure 5). 
Define a decision variable d; such that: ` 

d; = D(S) + DIT). Eq. 3 
Notice that if the curve passes midway between S; and T;, 
d, = 0. Further notice that: 


1) if the curve passes ve the midpoint, d, < O, and 
2) if the curve passes below the midpoint, d; > 0. 


Therefore: 


1) if di < O, we choose Sj, and ` | 
2) f d, — = O, we choose |. ` 


The quantity to add to di, depending on whether S; or Ti is 
chosen, must be determined. The value of d; for S; and T; 
must first be determined: | 


d = DIS) + DIT). x 
di = oY? , + 8X- E KEN Eu | D 
TB. t 1) os 
(i = aY” , + o(Y;— ve + 28%- 1 1)? 
— 200. 


Eq. 4 
Determine di. if S is chosen: | 


dir aY? 4 6%. + 2j —ap +alYi- 1—12 
+ GIS, _ 1 +2) m a. 

diii = aY? , + a(Yi.i — 1? + 28(X-1+ 2 
200. Ea 5 

Define A. the difference between d;. ; and d; if S; is chosen: 


= disi que d. 

SE 1 + 2)2 — 28(X 4 + ue. 

= 28(2X;-1+ 3). | 
* = A8X; 1 + 68. Eq. 6 
Now calculate the quantity to be added to d, if T; is chosen: 


dı = o(Yi. i1 — 1 + 80G 4-2)? —aß 


Table 
Derivation of the algorithm to map an ellipse. 


will be sufficient to check the new set of points (Tia 


NN 
da= aY: Pta- 2) 
T 2B(X 1t 2)? — 208. 


Define Ar, the difference between diet and d; when T is P 
chosen: _ 


Ar === Ta- d; > — 
Ay 200142" — 2008-1 1 
+ alY;_1 — 2 —aY? -~ SE _ 
Ar = 48X%; 1 + 66— 4. + 4a. Eq. 8 
Now the value of d; for the initial point, which is located on 
the Y-axis, must be determined. Rm is half the length of the 
major axis. If the Y-axis is the major axis, the initial poini i is 
the point P(O, Rm). Therefore: | | 
d, = 2aR& — ZaRm + a + 28—208. Eq.9 
If the X-axis is the major axis, the initial point is the point 
P(O, (8/0) XRm ). Therefore: — 
Rå — 26Rm Eq. 10. 


= (287/a) X + a + 28— 2a. 


Consider now the slope of a line tangent to the ellipse. Be- : 
ginning with the original point, it can be guaranteed that the ` 
slope of the tangent line will always decrease while the - 
elipse is being mapped in the first quadrant. Therefor — 
once the slope of the tangent line reaches — 1, it will never 
be greater than — 1. Also, it may be seen that from ` 


point where the slope of the tangent line reaches —1 | 


| throughout the rest of the first quadrant, for any point P D 
mapped, T; will be closer than Si. At some point, the ellip: i 


will diverge enough from the tangent line of slope — 1 f 
point U; (see Figure 6) to be closer to the ellipse tha 


from the point where the tangent line's slope become 
d; must be recalculated, as must Ar and Av. Calculate d 


di = alYi-1 VEK 
+ a(Yi-1 — 12 8X?,— af. - 
d; me 20(Yi-1 = 1)2 + PX, 


TAA TN 200. Eq. 11 
Determine d;. ; if T; is chosen: 
dia = 2o(Y i — 22 + (Xi +12 t 
+BX 1 t 2) — 200. | Eq 12. 


Define Ar as the difference between d and da) D 
chosen: — 
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Dec ISI. on Var tables (Text begins on page 40) 
Listing One 


be 


"—————— HO OF OO OH KR 


#define 
Hdefine 


#define 
#define 
#define 
Hdefine 


#define 


* 


compiled 11/28/84 under Lattice C Compiler ver. 2513 


ellipse.c 

by Tom Hogan 
Version 2.0 
Copyright 1984 
by C Source Inc. 
ALL rights reserved. 
Permission is granted 
for unlimited 
personal, non- 
commercial use only. 


For answers to questions, 
please write to: | 


Tom Hogan 

C Source Inc. 

12801 Frost Road 
Kansas City, MO 64138 


If you would rather call, 
our number is (816) 353-8808. 


Please call between 9 AM 
and 5 PM CST, Monday thru 
Friday. Calls can only 


returned on a collect basis. 


ERROR O 
SUCCESS- 1 
MAX COL 319 
MAX ROW 199 
MIN COL 0 
MIN ROW 0 


/* a macro used in the error-checking code */ 
inrange(a,x,b) (Ca) <= (x) && (x) <= (b)) 
the bounds of the following array can be set for different * 


graphics modes; this array is used in the assembly algorithm * 
Listing 2 to write individual pixels. */ 
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Dec ision Var, lables (Listing Continued, text begins on page 40) 
Listing One 


int CRT BNDSL] = € MAX COL, MAX ROW, MIN COL, MIN ROW }; 
/* r sub m is half the Length of the major axis */ 


ellipse(x, y, r sub m, color, aspect) 
int x, y, r sub m, color; 
double aspect; 
€ 
int two x, two y, or color; 
int col, row, rel x, rel y; /* rel x and rel y are relative si 
double square aspect; /* to the center */ 
Long temp, beta, alpha, two alpha, four alpha, two beta, four beta, d; 


/* d is the decision variable */ 
[x error checking follows */ 


if (Caspect < 0.004) || !inrange(0, color, 15) || !inrange(1, r sub m, 
154)) € 
printfC'ELLIPSE(Xd, Xd, Xd, Xd, Xf) - BAD ARG\n", x, y, r sub m, 
color, aspect); 
return ERROR; } 


square aspect - aspect * aspect; /* initialize the beginning row */ 
if (aspect < 1.0) < /* and set the values of x/ 
alpha - r sub m * r sub m; /* constants */ 


beta = alpha * square aspect; 
row = y + r sub m * aspect; } 
else C 
beta - r sub m * r sub m; 
alpha = beta / square aspect; 
row * y * r sub m; T 
if (alpha == OL) alpha = 1L; /* compensates for very small ellipses */ 
if (beta == OL) beta = 1L; 
or color = OxcOO | color; /* sets the high byte for a screen interrupt */ 


col = x; /* initializes the beginning column x/ 
two x. x << 1j 
two_y = y << 1; 


Pet y = row = y; 

two alpha = alpha << 1; 
four alpha = alpha << 2; 
four beta = beta << 2; 
two beta = beta << 1; 


/* initialize the decision variable -- Eq. 9 or 10 x/ 
d = two alpha * ((rel y - 1) * rel y) + alpha * two beta * (1 - alpha); 


/* when the slope <= -1, choose the new set of points */ 
[x er KOG TT Wi 


while (alpha * (rel y = row - y) > beta * (rel x = col - x)) € 
write pix(col, row, two x - col, two y - row, or color); 
if (d >= 0) X 


d ** four Alpha * (1 = rel y»; /* Eq. 6; also first */ 

row=-; ) /* half of Eq. 8; * / 
d += twó beta *. (3 + (relix << 10); /* second half of Eq. 8 x/ 
COLFt > 


/* initialize the decision variable for the rest of the ellipse */ 
/* oe Eg. M x/ 


d = two beta * (rel x * (rel x + 1) + two alpha * (rel y * (rel y - 2) 
+ 1) + (1 - two alpha) * beta; 


while ((rel y = row - y) + 1) X 
write pix(col, row, two x - col, two y - row, or color); 


if (d <= O) { /* col = x == rel x */ 
df four heta * (1 + col < xy; /*.En. 155. also first x/ 
cottt; > /* half of Eq. 13; */ 
row=-=; 


(Continued on page 48) 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there's a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
MODOS FOES -ai pen Wasi nt y $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPROMS; EEPROMS and MPUs (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS.232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 


load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast *adaptive" programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except ^A" versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 
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Model 7956 and 6-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128,27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
GDX Driver Software 95 
481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 
CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining object file, 
chanaina load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, TI, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
ETE LS S RA Rn s REE $250 


Ask about UNIX. 


Circle no. 10 on reader service card. 
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Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 


68000 CROSS-ASSEMBLER — With 
exhaustive field testing completed, our 
68000 assembler is available for imme- 


diate shipment. XMAC68K supports 
Motorola standard assembly language for 
the 68000 and 68010. Macros, cross- 
reference, structured assembly statements, 
instruction optimization and more. Linker 
and librarian included. Comprehensive, 
well-written manual. 


To find out more, call us toll-free. 


1-800-448-8500 


(in the U.S. Except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research ` **Trademark of Microsoft 


AVOCET 
SYSTEMS INC. 


Sales and Development: 
10 Summer Street 

P.O. Box 490, Dept. 
Rockport, Maine 04856 
(207) 236-9055 Telex: 467210 AVOCET CI 


Corporate Offices: 
804 South State Street 
Dover, Delaware 19901 


585-DDJ 


from your C programs 
with 


PC—LINT 


PC—LINT analyses your C programs (one 
or many modules) and uncovers glitches, 
bugs, quirks and inconsistencies. It will catch 
subtle errors before they catch you. 


PC-LINT resembles the Lint that runs on 
the UNIX O.S. but with more features and 
greater sensitivity to the problems of the 
8086 environment. 


e Full K&R C 


° Supports multiple modules -finds incon- 
sistencies between declarations and use 
of functions and data across a set of 
modules comprising a program. 


* Compares function arguments with the 
associated parameters and complains if 
there is a mismatch or too many or too 
few arguments. 


* All warning and information messages 
may be turned on and off globally or 
locally (via command line and comments) 
so that messages can be tailored to your 
programming style. 

* All command line information can be 
furnished indirectly via file(s) to auto- 
mate testing. 

* Use it to check existing promuns, pro- 
grams about to be exported or imported, 
as a preliminary to compilation, or prior 
to scaling up to a larger memory model. 

* All one pass with an integrated pre- 
processor so it's very fast. 

* Has numerous flags to support a wide 
variety of C's, memory models, and 
programming styles. 

* Price: $98.00 MC, VISA 


(includes shipping and handling) PA residents add 6% 
sales tax. Outside USA add $10.00. 


* Runs on the IBM PC (or XT, AT or 
compatible) under DOS 2.0 and up, with 
a minimum of 128KB of memory. It will 
use all the memory available. 


SIMPEL SOFTWARE 


3207 Hogarth Lane * Collegeville, PA 19426 
(215) 584-4261 


* Trademarks: IBM (IBM Corp.), PC-LINT (Gimpel Softwa 
UNIX (AT&T) ec hie s: 
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Dec ISI on Var lables (Listing Continued, text begins on page 40) 
Listing One 


d += two alpha * (3 - (rel y << 10); } /* second half of Eq. 13 */ 
return SUCCESS; > 


/* write pix writes four points to the screen, taking * 
* advantage of the ellipse's four-way symmetry */ 


write pix(col, row, neg col, neg row, or color) 
int col, row, neg col, neg row, or color; 


{ 

_pixasm(col, neg row, or color); /* symmetry — y axis */ 
.pixasm(neg col, neg row, or color); /* symmetry ~- center x/ 
_pixasm(neg col, row, or color); /* symmetry — x axis ki 
.pixasm(col, row, or color); } /* mapped point Mi 


End Listing One 
Listing Two 


8086 Assembly function that clips against the screen bounds 


_pixasm(x, y, type color) 

int x, y, type color 
type - get or read pix in hi byte 
color - if set pix, in Lo byte 


me me me Be me 


DGROUP GROUP DATA 

DATA SEGMENT WORD PUBLIC 'DATA' 
ASSUME ` DS:DGROUP | 
EXTRN CRT BNDS:WORD 

PGROUP GROUP PROG 

PROG SEGMENT BYTE PUBLIC 'PROG' 
ASSUME CS: PGROUP 
PUBLIC pixasm 


_pixasm proc near | 
| 


push bp ; set return address 
mov bp, sp 
mov cx, [bp+4] ; set x (column) 
cmp cx, CRT BNDS  ; check for max x value | 
jg BYE | 
cmp cx, CRT BNDS*4 ; check for min x value | 
jl BYE 
mov dx, Cbp+6] 3 set y (row) 
cmp dx, CRT BNDS*2 ; check for max y value 
j9 BYE 
cmp dx, CRT BNDS*ó ; check for min y value 
jl BYE 
mov ax, Lbp*8] ; set color (al) / fcn number (ah) 
int TUR — 2 ; do video interrupt 
sub ah, ah 
BYE: pop bp ; reset frame pointer 
ret ; bye! 


_pixasm endp 
PROG ends 
DATA ends 
end 


End Listings 
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"Its Time Someone Got Serious 
About The CRITICAL Issues 


“The Industry has a responsibility to the 
buying public to stop using MIRRORS to 
promote VAPORWARE claims about multi- 
user software capabilities. Many complex 
and potentially DANGEROUS situations 
exist for any software that runs in a multi- 
user / LAN environment. Partial solutions 
may be acceptable when using word 
processing or spreadsheet applications, 
however Data Base Management Systems 
demand complete solutions. Unlimited 
Processing Incorporated has devoted millions 
of dollars and three and one half years 
developing the expertise necessary to present 
a true interactive multi-user DBMS and 
APPLICATION DEVELOPMENT 
ENVIRONMENT. 


George Treiber 
President, UP, Inc. 


Concerning LAN Software" 


To evaluate “multi-user claims," you must ask the following questions: 


* IS IT REALLY MULTI-USER, NOT MERELY 
RESTRICTED SINGLE-USER? 


INFORMA Is! 


Can an unlimited number of simultaneous users: 
Access the same file? 
Access the same file in different sort orders? 
Access the same record? 
Update the same record? 
Enter new records into the same file? 


Does the system prevent one user from changing 
the appearance of the database while another user 
is reviewing that data? 


° DOES IT REALLY MANAGE YOUR 
DATABASE, NOT JUST STORE DATA? 


INFORMA Does! 


With complete transparency to users does it: 
Allow data files to reside on different disk 
drives? 


Keep track of the existence and location of data 
files for all applications? 


Eliminate data compression and other time 
consuming operations? 


Permit data file movement for disk balance? 


* IS DATA INTEGRITY GUARANTEED, 
INSTEAD OF ACCEPTING DATA LOSS AS 
AN INEVITABLE RISK? 


INFORMA Guarantees! 


Can you be assured one update will not overwrite 
another when two or more users simultaneously: 
Change the same record? 
Change adjacent records? 


IS COMPLETE SECURITY EMBEDDED 
THROUGHOUT THE SYSTEM, NOT 
MERELY AN AFTERTHOUGHT? 


It Is With INFORMA 


Are multiple levels of user security offered? 
Can each activity be secured by specific user? 
Can applications be secured by specific user? 
Can audit trails be created by user and 
application? 

Can the functions find, enter, update, delete, 
and print be secured by user and application? 


IS IT FAST ENOUGH TO BE EFFECTIVE, 
NOT TOO SLOW TO BE USEFUL? 


INFORMA Has Unequaled Speed! 
Retrieve any record in less than 1 sec? 


Does the access time remain relatively constant: 
As the number.of records increases? 
As the number of users increases? 


INFORMA offers the only serious solution to Interactive, Real-Time, DataSharing. 


UNLIMITED PROCESSING 
INCORPORATED 


8382 Baymeadows Road, Suite 8 
Jacksonville, Florida 32216 

(904) 731-8330 and (800) 874-8555 
Telex 350754 (800) 874-4185 


Introductory Offer 
LAN/Multi-user 


$599 


regularly $1495 


Single-user 


$199 


regularly $795 


Offer Expires April 10, 1985 
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Solid Shape Drawing on the 
Commodore 64 


by Richard Rylander 
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omputer graphics is one of the 
i fastest growing areas of com- 

puter software and hardware 
development. The old saying that 
"one picture is worth a thousand 
words” couldn't be truer when you 
consider the effectiveness of a pie 
chart or bar graph versus columns of 
numbers. Even the simplest of home 
computers is capable of at least this 
basic form of computer graphics. But 
the term computer graphics usually 
brings to mind more exciting images 
than just mundane business 
applications. 

Special visual effects for motion 
pictures and some television adver- 
tisements are now being done with 
computers to create scenes of "en- 
hanced reality." We see spacecraft 
making impossible manuevers or 
shimmering corporate logos "flying 


easy-to-use graphics capabilities to 
the masses. The “masses,” however, 
may still find the Macintosh pricey, 
especially if they just want to play 
around a bit with MacPaint. Low- 
cost computers, such as the Commo- 
dore 64, while lacking the slick 
graphic interaction of the Mac, are 
selling for such ridiculously low 
prices ($150 at the time of writing 
this article) that they are hard to pass 
up. They have the potential for some 
fairly sophisticated graphics, but so 
far most of the commercially avail- 
able software has done little more 
than add the usual “point plotting" 
and "line drawing" commands. 

This article describes a software 
package that will allow you to create 
your own computer-generated 
scenes, such as “Coffee and Donuts" 
in Figure 1 (page 55) and “Goblets” 


Pumping pixels requires tight, efficient code. Here 
are halftone shading, backlighting and other visual 
effects in a tight little package. 


by" in ways that would be difficult to 
simulate with conventional photo- 
graphic techniques. The enormous 
amount of data and processing neces- 
sary to produce such images has 
made the use of *super computers" 
essential. Even with the largest com- 
puters working full time on the task, 
only a few feet of film are produced 
per day. For home computer owners 
who want to create their own com- 
puter-generated masterpiece, howev- 
er, the task 1s not hopeless. 

The Apple Macintosh represents a 
major step in bringing powerful, 


Richard Rylander, 179 N. McKnight 
Rd. Apt. 203, St. Paul, MN 55119. 


in Figure 2 (page 55). You can con- 
struct images from combinations of 
elementary shapes (spheres, cylin- 
ders, and toroids in various orienta- 
tions) or by the "polygon mesh" tech- 
nique typically used to render more 
complex objects. You can produce 
drawings with realistic shading ef- 
fects and in a variety of styles to 
make some surprisingly detailed pic- 
tures with a minimum of effort. The 
package includes demonstration pro- 
grams to illustrate how you use each 
graphic function and style option. 

In keeping with the "running light 
without overbyte" theme of DDJ, the 
entire graphics package fits in 3K of 
RAM. The program sits in an area of 
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RAM that is inaccessible to BASIC (a 
4K block following the BASIC ROM) 
so that you don't lose any useful pro- 
gram space. Commodore supplies a 
“DOS Wedge" program that occu- 
pies the last 1K of this block, and one 
of my objectives in the design of the 
graphics package was to maintain 
compatibility with this useful utility. 

The compactness of the code re- 
quired me to leave out some “bells 
and whistles,” but I’ve made no sacri- 
fices to execution speed or user-inter- 
face ease. The main omission is error 
trapping—the software performs no 
checking to ensure that you use only 
“legal” point coordinates and so on. 
This may make program develop- 
ment a little more difficult, but once 
you have written and debugged a pro- 
gram properly error checking be- 
comes extraneous and only slows pro- 
gram execution. 

We must address several general 
tasks in developing a shape-drawing 
program. The first is, of course, how 
to calculate the apparent brightness 
for all points on visible surfaces of ob- 
jects. Next, how do we display these 
different brightness levels on a high- 
resolution display that is basically on 
or off? Finally, a “general” task, but 
detailed in nature, is creating the spe- 
cific software tools that will let us do 
the required calculations and bit-map 
manipulations. 

The program itself is written in 
machine language, because even with 
our simplifying restrictions, the plot- 
ting of each pixel still involves consid- 
erable computation. The program 
uses integer arithmetic throughout, 
and we utilize all the symmetry avail- 
able to eliminate redundant calcula- 
tions. The main program actually 
consists of five separate subprograms 
to break the process into manageable 
pieces and to provide a library of sep- 
arate utilities that you may find use- 
ful in other programs. Before getting 
into the problem of shade calculation, 
Ill present the first subprogram, 
which is a collection of integer arith- 
metic utilities that all the later sub- 
programs need. 


Integer Arithmetic Utilities 


Listing One (page 61) provides the 
source code for a set of four integer 
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arithmetic routines. Because we will 
draw our shaded shapes on a high- 
resolution display of 320 x 200 
points, we need only single-precision 
arguments for most functions and 
double-precision results for some in- 
termediate values. 

The first two routines, multiplying 
two single-precision numbers to yield 
a double-precision product and divid- 
ing a double-precision dividend by a 
double-precision divisor to yield a 
double-precision quotient, are fairly 
standard routines that should need no 
description other than the comments 


NEW Ver. 31 


Enhanced portability. 
Topview compatible. 


WINDOWS FOR C $195 
(specify compiler & version) 


Demo disk and manual $ 30 
(applies toward purchase) 


Full source available. 
No royalties. 


Advanced 
Screen Management 
made easy 


Now a professional software tool from 
Creative Solutions. 


WINDOWS FOR C 


More than a window display system, 
WINDOWS FOR C is a video tool kit for all 
screen management tasks. 


E Pop-up menus and help files 
ll Auto memory management 
@ Keyboard interpreter 

@ Word wrap 

E Auto scroll 

@ Highlighting 

Bi Color control 

@ Overlay and restore 


@ Plus a library of over 50 
building block subroutines 


Designed for enhanced portability. 


Easy to learn, easy to use. 


Once you've tried WINDOWS FOR C, 
you'll wonder how you ever managed without it. 


ET 
lie 


in the code. The multiplication rou- 
tine also contains a special case to 
treat a single-precision number as a 
signed integer, which is then squared. 

The integer-square-root routine 
deserves some special comment. 
Have you ever tried the BASIC 
square-root function? If you have, 
you know it takes about 52 millisec- 
onds. At this rate, plotting the 64,000 
pixels of a 320 x 200 screen would 
take about 3,328 seconds, or nearly 
an hour, if we need a square root per 
point! Of course, we don't need a 
square root for each point, but it is an 


Full support for IBM PC/XT/AT and compatibles, plus interfaces for non-IBM computers; 
Lattice C, CI-C86, Mark Wm. C, Aztec C, Microsoft C, DeSmet C (PC/MSDOS), 


ech Creative Solutions 


21 Elm Ave., Box T4, 
. Richford, VT 05476 
=| 802-848-7738 


| Master Card & Visa Accepted 
| Shipping $2.50 
VT residents add 4% tax. 


Circle no. 27 on reader service card. 
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essential part of many shade calcula- 
tions. Obviously, anything we can do 
to speed up this particular function 
will have a great effect on the overall 
program speed. 

The BASIC square-root routine is 
slow because BASIC is written to save 
space, not time. Virtually all small 
BASICs find a square root by first 
taking the log of the argument, divid- 
ing that result by 2, and then expon- 
entiating. Because LOG and EXP 
functions are already available, why 
use any more space than necessary to 
derive SQR? 

One way to speed up this function 
is to use Newton's method, an itera- 
tive procedure that can give full float- 
ing-point precision in less time. Be- 
cause we are interested only in 
integer results, we can do much bet- 
ter yet, though. 

The method we actually use is es- 
sentially as fast as doing a single-di- 
vide operation. We construct the root, 
bit by bit, in a manner similar to the 
way we would take a decimal square 
root by hand using pencil and paper 
(does anyone remember how to do 
that in this age of electronic calcula- 
tors?). The process is even easier for a 
binary root because the guesses are, of 
course, only 1 or 0. The procedure is 
almost identical to that for division: 
we guess a partial root bit (as we 
would guess the next quotient bit) 
and, in effect, compare the square of 
the partial quotient to the argument to 
see if we keep the 1 guessed or change 
it to a 0 and restore the argument. For 
more details about this procedure, I 
recommend section 17.3, “Binary 
Square Roots—Restoring Method," 
of the book The Logic of Computer 
Arithmetic by Ivan Flores (Engle- 
wood Cliffs, NJ: Prentice-Hall). 

The last integer arithmetic routine 
is a fast procedure for generating 
pseudo-random bytes. An old and 
popular method for generating pseu- 
do-random numbers is the so called 
congruential method, in which you 
derive each successive random num- 
ber from the previous random num- 
ber by multiplying by a suitably cho- 
sen constant and taking the product 
modulo P, where P is a large prime 
(see, for example, *A Better Random 
Number Generator," by H. Cem 
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Kaner and John R. Vokey in the June 
1984 issue of MICRO). Again, 
though, because we are interested 
only in generating random bytes, we 
can use a much faster routine. 

The method we use is to store two 
previous random bytes, exclusive OR 
them bit by bit, and rotate the result 
to the right by one bit to generate a 
new random byte. Because it needs 
no multiply or divide operations, pro- 
vides a fairly uniform distribution of 
random bytes, and has a long period, 
this process is fast. Note that even 
though we are only generating ran- 
dom bytes (0-255), the pattern or se- 
quence of successive bytes doesn't re- 
peat until after 35,805 calls to the 
random-number-generator routine 
(for the initial parameters used in the 
program). The long period is neces- 
sary to ensure that we won't produce 
any unwanted secondary patterns in 
what should be *randomly" shaded 
images—the human eye is adept at 
picking out such correlations. 

Now that some low-level number 
crunching is out of the way, we can 
concentrate on the graphics aspects 
of the main program. 


Graphics Utilities 
Listing Two (page 62) provides the 
source code for the elementary 
graphics functions of displaying and 
clearing the bit-map, filling the color 
map (determining dot/background 
colors), and plotting (and unplotting) 
individual points both directly and 
with the plot or unplot decision 
weighted by a shade value and a par- 
ticular shade style function. The 
PLOT (and UNPLOT), CLEAR, COL- 
OR, GRFON (display graphics 
screen), and GROFF (return to text 
screen) routines are specific to the 
Commodore 64. To adapt this pro- 
gram for other 6502-based comput- 
ers, you need to rewrite these rou- 
tines, but the rest of the graphics 
package (save the final user interface 
to BASIC) is machine independent. 
The SHADE routine is simple and 
straightforward. We set up an 8x 8 
threshold matrix as a linear array of 
values 0 to 63. The six bits we need to 
address an element of this threshold 
array are determined by masking off 
the lower three bits of the absolute X 


and Y screen coordinates (we take X 
modulo 8 and Y modulo 8) with the 
Y bits shifted to become the upper 
three bits. This effectively repeats the 
threshold pattern over the entire bit- 
map area. For each point within an 
object to be drawn, we calculate a 
shade value normalized to the range 
0-63 and then compare it to the 
threshold value at that screen point to 
decide whether to plot or unplot. 

If we have, for example, a large 
area where the shade value is con- 
stant at 31 (a 50 percent gray), then 
within each 8 X 8-pixel character 
cell block, half of the threshold values 
will be greater than or equal to the 
shade value, turning on half the pix- 
els. The order in which the values 0 to 
63 are arranged in the threshold table 
determines how these on pixels are 
distributed. A common pattern for 
these so called ordered-dither matri- 
ces is a recursive arrangement such 
as that shown in Table 1 (page 53). If 
that matrix is subdivided into quar- 
ters, sixteenths, and so on, each sub- 
matrix has the same general pattern, 
with offsets between submatrices. 

The matrix in Table 1 (classic Bay- 
er ordered dither) keeps the on and 
off pixels spread as far apart as possi- 
ble for any shade. This keeps the spa- 
tial frequencies in the shade “‘tex- 
ture" as high as possible for a 
particular shade. A disadvantage, 
though, is that texture changes then 
accompany shade changes, making 
shade quantization more apparent. 
Another disadvantage is that many 
color monitors have a hard time cop- 
ing with the very high frequency on- 
off-on sequence of pixels, distorting 
shade values when isolated pixels get 
lost. 

As an aside, a convenient algorithm 
to generate the ordered-dither matrix 
in Table 1 (or such a matrix of any 
size) is found in Figure 7 (page 59). 

The threshold matrix we actually 
use in the program is shown in Table 
2 (page 53). Here we follow a recur- 
sive scheme as we start turning on 
pixels until eight nuclei have been es- 
tablished. As shades increase, new 
pixels are added around the edges of 
these nuclei, simulating the dot- 
growth behavior seen in normal 
printing halftones. Except in the ex- 
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treme highlight and shadow regions, 
the shade texture remains fairly con- 
stant. Also, the clustering of on or off 
pixels is much less demanding on the 
display bandwidth. But take your 
pick— try filling the threshold matrix 
with your own patterns. 

The RSHADE routine shades by 
comparing the shade value to a pseu- 
do-random byte shifted right twice to 
match the 0-63 range. This scheme 
also tends to average out the tone er- 
rors generated as each pixel is turned 
only on or off (though we want an 
intermediate shade of gray) by dith- 
ering the threshold value randomly at 
each pixel. Both shading schemes 
produce sharp edges because each 
pixel is plotted independently. 
Abrupt shade changes are then fol- 
lowed faithfully. 

The SCALE routine provides an 
opportunity to mention a general rule 
you should follow when you try to 
write fast programs: If at all possible, 
avoid division; and if you must divide, 
try to make it by a power of 2 (so that 
you can use right shifts). The SCALE 
routine helps correct some of the geo- 
metric distortion that otherwise re- 
sults from plotting objects on the 
Commodore 64's rectangular bit 
map. While the monitor display has 
an aspect ratio of approximately 4:3, 
the bit-map aspect ratio is 320:200 or 
8:5. A simple way to keep sphere out- 
lines circular (instead of the usual 
egglike appearance) is to work in 
pseudoscreen coordinates of 320 X 
240, giving the bitmap the same 4:3 
aspect ratio as the screen display. 
The SCALE routine then converts 0- 
239 YPLOT values to a 0-199 range. 

An obvious way to do this is to first 
multiply by 5 and then divide by 6. Or 
you might save a multiplication by 
first dividing a copy of YPLOT by 6 
and subtracting that from the original 
YPLOT. A much faster way is to mul- 
tiply the single-precision YPLOT by 
213 and then take just the upper byte 
of the double-precision product (ef- 
fectively dividing by 256) as the 
scaled YPLOT value. This gives us the 
proper range of absolute screen Y val- 
ues and “rounds” the scaling as well. 

This method of scaling means that 
you effectively replot every sixth Y 
line of pixels, but the routine's sim- 
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plicity more than makes up for plot- 
ting 20 percent more points. Scaling is 
left as an option because some printers 
(such as the Commodore 1525) have 
1:1 dot densities. By not scaling, the 
screen display is distorted but a hard- 
copy printout will have the proper ge- 
ometry. On the other hand, you can 
set up printers, such as the Epson R X- 
80, with the appropriate horizontal 
and vertical dot densities to produce a 
4:3 aspect ratio screen dump. Scaling 
here corrects both the screen and the 
hard-copy output. 

The routine PLTSHD is a higher lev- 
el routine that simply checks a couple 
of flags to see what kind of shading we 
want and whether to scale or not. It 
then calls the appropriate shading rou- 
tine. To plot a shade-weighted pixel 
from BASIC, POKE a shade value (0- 
63) into VALUE; POKE the absolute X 
and (optionally scaled) Y values into 
XPLOT, XPLOT+1, and YPLOT; set 
up the flags HTORRN (HALFTONE 
or RANDOM) and NOSCAL; then 
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SYS to PLTSHD. This seems like a lot 
of work to plot a single point, but we 
really won't be plotting shade-weight- 
ed points by hand—the later shape- 
drawing routines take care of this. 


Line and Facet Drawing 

Listing Three (page 64) completes 
the elementary graphics functions by 
adding line-drawing and shaded-fac- 
et-drawing routines. We draw lines 
using a modified form of Bresen- 
ham's algorithm, a DDA (Digital Dif- 
ferential Analyzer) technique that 
keeps the actual plotted points within 
one half-screen unit of the true line. 
Regardless of the order in which we 
specify the line's endpoints, the pro- 
gram sorts them so that lines are al- 
ways drawn from left to right (the X 
position is incremented or unchanged 
at each step). We then need only de- 
termine which is greater, the change 
in X or the change in Y, and whether 
the Y coordinate difference is posi- 
tive or negative. The program checks 
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the scale flag to see if the endpoints 
should be adjusted (in their Y coordi- 
nates) before plotting commences. 
This keeps a common coordinate sys- 
tem for drawing shaded shapes 
(spheres and so on) and lines in the 
same image. A flag MODE deter- 
mines whether the line is drawn by 
setting or clearing pixels (*black” or 
“white” lines). 

The program's last elementary 
function is to draw shaded triangular 
facets. A powerful and flexible tech- 
nique for rendering objects is by 
means of a polygon mesh. Natural 
polyhedral objects (for example, 
cubes and pyramids) are obvious can- 
didates for this method, but you can 
also approximate curved surfaces by 
a connected mesh of planar polygonal 
sections. As in piecewise-linear ap- 
proximations of curves, the finer the 
segmentation, the better the approxi- 
mation—although at the price of 
greater computational overhead. The 
coordinates of the polygon vertices 
then constitute a data base that you 
can manipulate easily for rotational 
transformations, perspective trans- 
formations, and so on. Triangular 
sections are the simplest to handle 
and the most general because you can 
break any higher-order polygon down 
into triangular sections. 

As in the line-drawing routine, the 
program sorts the endpoints of the fac- 
ets into a left-to-right order and checks 
the scale flag to maintain a consistent 
coordinate system. At each X position 
across the facet, a top and bottom Y 
coordinate pair is determined by a sim- 
ple proportionality between the X dif- 
ference and Y difference for the partic- 
ular triangular sides. Although this 
involves both multiplication and divi- 
sion operations, it is not the innermost 
loop here (drawing the shaded line seg- 
ment between Y pairs is). It also does 
not give more than one Y value per X 
position, as would a DDA method (for 
lines with slope greater than 1 in 
magnitude). 

The maximum X difference is re- 
stricted to less than 256 (single preci- 
sion), though the absolute X coordi- 
nates for the triangle vertices can be 
anywhere on the screen. This is not 
too severe a constraint because most 
polygon meshes are made up of small 
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sections, and, if a larger triangle is 
essential, you can break it into small- 
er triangles that meet this condition. 
The occasional inconvenience this 
might cause is worth the increase in 
speed and shortened program. 

We leave the shade value used in 
drawing facets as a parameter that 
the calling program specifies. Al- 
though adding "surface normal" cal- 
culation and shade value computa- 
tion based on some illumination 
model (and requiring the Z coordi- 
nates then to be specified for the ver- 
tices) is not difficult, the same shade 
value is used for all points of the fac- 
et, making shade determination by a 
BASIC program practical. Also, leav- 
ing shade calculations up to BASIC 
adds the flexibility that we can use 
any shading model. The curved sur- 
face-drawing routines I describe later 
do include shade determination, but 
here each point can potentially have a 
different shade value, putting it in the 
innermost loop. For this reason, the 
curved surfaces must have a fixed 
shading model. 

An interesting use for the BASIC- 
specified shade values is drawing 
"white" facets by setting the shade to 
64. This doesn't seem particularly 
useful, but when you draw *wire- 
frame" polyhedra, it makes a simple, 
hidden-line removal scheme possible. 
If the facets of an object are sorted so 
that they are drawn from those fur- 
thest to those nearest the observer, 
with “black” lines added around the 
edges of each facet, then foreground 
facets that partially obscure back- 
ground facets erase the lines in their 
interior. We can set a flag EDGES so 
that, after the program has drawn a 
shaded facet, it can add lines auto- 
matically to outline and emphasize 
the edges. The MODE flag again de- 
termines how the lines are drawn (set 
or cleared). 

Now that we have a toolbox of 
arithmetic and primitive-graphics 
routines, we can concentrate on the 
main subprogram for drawing shad- 
ed, curved surfaces rapidly. 


Determining Shade Values for 
Curved Surfaces 

Many recent advances in computer 
image synthesis have dealt specifical- 


ly with how different surfaces reflect, 
refract, scatter, or absorb light. In- 
creasingly complex models for the vi- 
sual appearance of various surface 
textures have led to ever more realis- 
tic images, but increasing computa- 
tional overhead accompanies these 
models. We'll employ the simplest 
shading scheme to start with and 
then suggest how you might modify it 
to add "realism," while still keeping 
the computations manageable. 

If we restrict ourselves to simple, 
symmetrical objects, we can greatly 
simplify the problem of calculating 
surface brightness. This is not a se- 
vere restriction in itself, as you can 
break most “complex” objects down 
into combinations of simple elemen- 
tal shapes. We will have to limit our- 
selves to “normal” (that is, head-on) 
views of the objects, because once we 
allow objects to be rotated, they lose 
most of their symmetry. Also, calcu- 
lation time (particularly that for hid- 
den surface removal) increases 
enormously. 

We use the Lambertian (diffuse 
reflector) model to determine the 
surface brightness. We assume that 
light comes from a single, specific di- 
rection and then find the cosine of the 
angle between this reference vector 
and a surface normal vector. This 
gives us shade values from 1, where 
the surface faces the light source, to 0 
at the terminator, where light just 
grazes the surface; and negative val- 
ues where the surface is turned away 
from the light. Here is our first op- 
tion: We can clip the brightness val- 
ues at 0 so that areas facing away 
from the light have zero brightness, 
as an object lit by a single source (in 
deep space) would appear. Or, we can 
use the absolute value of the cosine so 
that the object appears to be lit by 
two identical sources on opposite 
sides. Either way is simple, so we al- 
low for both cases by using a flag to 
determine what kind of illumination 
scheme we want to use for a whole 
scene or any individual shape making 
up the scene. 

Although this simple model is valid 
for diffusely reflecting surfaces, it 
does not account for any contribu- 
tions from specular surface reflec- 
tions, secondary light sources (other 
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than the "opposite face" light) or am- 
bient (nondirectional) light. These 
additional subtleties are not difficult 
to implement, but for the level of de- 
tail and dynamic range (number of 
gray levels) in our halftone display, 
they really aren't worth the effort. 


Object Geometry 

Calculating the surface normal vec- 
tors for points on an arbitrary surface 
can be difficult, but this is why we 
have restricted ourselves to objects 
that can be made up of combinations 
of the eight simple shapes shown in 
Figure 3 (page 55). All the basic 
shapes have at least fourfold symme- 
try; that is, once we have found the 
surface normal for a point (X, Y) in 
one quadrant of the object, we can 
easily find the surface normals for the 
other three quadrants by comple- 
menting appropriate components. 
Also, by restricting ourselves to 
shapes with relatively simple surfaces, 
we can determine the required surface 
normal vectors without resorting to 
trigonometric functions, using instead 
some simple geometric consider - 
ations. 

Another time-saver is to choose an 
illumination reference vector to best 
take advantage of symmetries in the 
objects. Unfortunately, the “best” 
choice for computational purposes— 
a light source directly behind the 
viewer—gives a rather flat-looking 
image. Much more pleasing shading 
results from illumination coming 
from “over the shoulder." The slight 
assymmetry that results gives a 
stronger sense of depth to the objects. 

The coordinate system describing 
objects on the screen has its X axis 
increasing horizontally to the right, 
the Y axis increasing vertically up- 
ward, and the Z axis increasing out of 
the screen toward the viewer (a con- 
ventional right-handed coordinate 
system). The illumination reference 
vector used here has X, Y, and Z 
components of (1,1,2), representing 
light coming from over the right 
shoulder. The symmetry in X and Y 
makes for easier shade calculations 
and gives a similar looking scene if 
you rotate a hard-copy output 90 de- 
grees to fit objects that are taller than 
they are wide into the display. Light- 
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ing in the “portrait” (as opposed to 
"landscape”—unrotated) mode then 
comes from over the left shoulder. 


Drawing a Shaded Sphere 
Spheres are particularly easy objects 
to deal with because a radial vector 
from the center to a point on the sur- 
face is in the same direction as a sur- 
face normal from that point. The 
only real problem we must deal with 
is one of normalization. We will a/- 
ways deal with coordinates relative to 
the "local center of curvature" of ob- 
jects. For spheres, this is just their 
geometric center. 

Consider a point on the surface 
that extends out of the screen from 
relative coordinates (X,Y). We find 
the corresponding Z value using the 
equation for a sphere: 


Z = SQR(R*R — X*X — Y*Y) 


This calculated Z then forms the 
third member of the surface normal 
vector. To calculate the cosine of the 
angle between this vector and the il- 
lumination reference vector, we must 
first normalize both to have unit 
length. The normal we have just 
found has, of course, a length of R, so 
we need only divide each component 
by the radius of the sphere. The illu- 
mination vector (1,1,2) has a length 
of SQR(6), so we normalize this vec- 
tor to unit length by dividing each 
component by SQR(6). 

Now that we have two vectors of 
unit length but different directions, 
we find the cosine of the angle be- 
tween them by taking their inner 
product, which is nothing more than 
summing the products of the X, Y, 
and Z coordinate pairs like so: 


COSINE = (1*X + 1*Y + 2*Z) 
/ (R*SQR(6)) 


To use integer arithmetic through- 
out, we don't really want brightness 
expressed as a fraction between 0 and 
1, but rather scaled to a range of inte- 
gers from 0 to 63. We choose a maxi- 
mum shade value of 63 to match the 
64 gray levels that can be approxi- 
mated by an 8X8 threshold matrix 
(described earlier in the "Graphics 
Utilities" section). We scale the 


pseudo-random bytes (used in the 
RSHADE routine) to the same range 
simply by shifting them right twice. 
So, for a surface point (X, Y, Z) ona 
sphere of radius R, the appropriate 
SHADE integer (0-63) is: 


SHADE = 26*(X + Y + 2*Z)/R 


The factor 26 properly accounts for 
the SQR (6) in the denominator of the 
previous equation. 

As stated earlier, all the primitive 
shapes considered here have at least 
fourfold symmetry. We need com- 
pute the Z component only once for 
each + X and + Y quartet of points 
(relative to the geometric center of 
the object). The sphere and top-view 
toroid actually have n-fold symme- 
try, which the Cartesian grid of 
screen pixels reduces to eightfold 
symmetry. That is, in addition to 
changing signs of X and Y, we can 
exchange the X and Y coordinates to 
find another surface point with the 
same Z value. 


Shape-Drawing Routines 
Listing Four (page 68) is a set of rou- 
tines for drawing the eight simple 
shapes shown in Figure 5. The routines 
resemble some form of compiled BA- 
SIC in that they use no special bit ma- 
nipulations or unusual addressing 
methods, but just have appropriately 
ordered calls to the lower-level routines 
set up earlier. Comment statements 
precede each shape-drawing routine, 
giving an equivalent BASIC routine. 
This seems to be the easiest way to ex- 
plain each routine because most read- 
ers are familiar with BASIC program 
methods. I thus give special comment 
to only a few of the routines here. 

GETVAL is a shade-normalization 
routine that also checks for normal or 
backlit illumination via the flag BAK- 
LIT. The byte pair at TONE contains 
the inner (dot) product of the illumina- 
tion vector with the local surface nor- 
mal vector. GETVAL then effectively 
does the division by SQR(6)*R and 
multiplication by 63 to put VALUE 
into the proper range, clipping at zero 
or taking the absolute value, as 
necessary. 

PTPLOT does all the dirty work 
needed to plot shaded points for four- 
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fold symmetrical objects. Provision is 
also made here for clipping the object 
at independent levels up, down, left, 
and right of the object's center. The 
clipping feature is needed to blend 
various primitive objects into more 
complex ones with smooth transitions 
at the seams. Clipping also allows us 
to create some intricate “weaving” 
effects by redrawing portions of over- 
lapping shapes as in Figure 4, 
“Linked Toroids,” (page 55). 

The flag NOROT determines 
whether the X and Y coordinates will 
be exchanged. This is useful both for 
drawing the eightfold symmetrical ob- 
jects (top-view toroid and sphere) and 
for rotating the fourfold symmetrical 
objects 90 degrees so that a single 
drawing routine can produce two ori- 
entations of an object. The calculations 
are basically those for the sphere, but 
we'll see later that we can put other 
objects, such as toroids, into forms that 
look like spheres (at least locally). 

GETZ calculates the effective Z co- 
ordinate for a spherelike surface, giv- 
en the X and Y coordinates relative 
to the local center of curvature. Note 
that this routine needs the SQRT 
function, and because it is in general 
called for each quartet of points plot- 
ted, our fast SQRT makes a big dif- 
ference in execution speed. 

SPHERE follows the previously 
outlined algorithm and takes full ad- 
vantage of the available symmetry. 
The radius is POKEd into RADIUS, 
and clipping distances relative to the 
sphere center are POKEd into CLIPL 
(left), CLIPR (right), CLIPU (up), 
and CLIPD (down). 

CYLNDR draws a cylinder with 
sizes POKEd into RADIUS and 
HLEN (half-length). The flag 
NOROT determines whether the cyl- 
inder will be drawn with a horizontal 
or a vertical axis. The routine is sim- 
ple, using PTPLOT for the main 
shade-calculation tasks. Actually, we 
could write a much faster routine to 
take advantage of the fact that we 
can use the same shade value for all 
points along lines parallel to the cyl- 
inder axis. This would require consid- 
erably more space, however. 

The peculiar manipulations of rel- 
ative coordinates for plotting toroids 
IN various orientations are easier to 
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explain with the help of the diagram 
in Figure 5 (appropriate for a top- 
view toroid) (page 55). 

Consider a point P at coordinates 
(XREL, YREL) relative to the center 
of the object. We can take the local 
center of curvature of the toroid to be 
at the point C, which lies on the inter- 
section of the line passing through 
the center of the toroid and a point 
beneath P (where Z=0) with a circle 
of radius RC (the “average” radius of 
the toroid is RC —(RO- RI) / 2). We 
determine the surface normal by the 
relative X, Y, and Z displacements 
from the point C. 

The byte RO is used for temporary 
storage of the radial distance from 
the toroid center to the point beneath 
P (where Z=0): 


RO = SQR(XREL*XREL 
T YRBL*YREL) 


We can determine the relative X and 
Y displacements, XSHD and YSHD, 
respectively, of P from C easily by us- 
ing similar triangles: 


XSHD — XREL*(1 — RC/RO) 
YSHD — YREL*(1 — RC/RO) 


We find the Z coordinate via the Py- 
thagorean theorem, using the radius 
of the “ring” portion, RT, as the hy- 
potenuse. RT is then also the length 
of the normal vector and is the value 
POKEd into RADIUS for normaliza- 
tion in the shade calculations. 

The routine TOROID follows this 
algorithm, taking advantage of the 
eightfold symmetry in the object. 
EDGTOR and SPOOL use similar 
center of curvature coordinates to 
draw other orientations of a toroid. I 
have given the BASIC equivalents but 
leave it to readers to draw the appro- 
priate geometric constructions if they 
desire more details. 


Using the Shape-Drawing Rou- 
tines—Interface to BASIC 

The last module, completing our 
graphics package, is a convenient in- 
terface to BASIC. Listing Five (page 
76) is a collection of routines to pass 
parameters easily to the graphics rou- 
tines from the BASIC programs that 
control image generation. These rou- 


tines are specific to the Commodore 
64 in that they use some of the rou- 
tines in the BASIC ROM to interpret 
statements in a BASIC program or en- 
tered in the direct command mode. 

Graphics commands are given in 
the form: 


SYS(FNCTN),PARAMI,PARAMO, 
[OPTIONAL PARAMETERS] 


where FNCTN is the address of the 
graphic function you desire (or a 
variable that has been assigned the 
address value) and PARAMI and 
PARAM2 are parameters (such as the 
center coordinates of an object) that 
the function requires, followed by 
any optional parameters. 

The parameters can be either liter- 
al numerics or expressions that are 
evaluated for the desired values. We 
do not have to put the function ad- 
dress in parentheses, but it helps to 
make the program more readable. 
Separating parameters by commas is 
required. If you desire an optional pa- 
rameter (such as specifying a new ra- 
dius for sphere drawing), you add it 
by following the last required param- 
eter by a comma and then the option- 
al value or expression. 

The use of optional parameters is 
more easily explained with the se- 
quence of BASIC statements found in 
Figure 8 (page 59): 

For all the shape-drawing func- 
tions, you must specify the X and Y 
center coordinates, but shape sizes 
are optional parameters. The last val- 
ues specified become the new default 
sizes, allowing you to draw copies of 
similar objects (such as a bunch of 
grapes) just by setting the new center 
coordinates. All shapes but the 
sphere take two size parameters, and 
you must specify both when you de- 
sire a change (even when only one pa- 
rameter takes on a new value). All 
size parameters (radii and cylinder 
half-lengths) must be less than 256, 
not a severe limitation considering 
the screen is only 200 pixels high 
(**240” with scaling). 

The commands to clear the bit map 
and initialize the color map each take 
a single optional parameter, but the 
default values remain unchanged. Un- 
less you specify alternate bytes, the bit 
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map is filled with Os (cleared) and the 
color map is filled with 1s (for black 
dots on a white background). The 
most useful alternate byte with which 
to fill the bit map is 255, setting the 
entire background. Because the shad- 
ing process clears, as well as sets, ap- 
propriate points, objects still appear 
normal but against a black back- 
ground (particularly effective when 
you use the "back light" style). 

The byte used to fill the color map 
is made up of background and fore- 
ground nibbles. To initialize the color 
map for a different color combination 
than black on white, use: 


SYS(52001),16*DC+ BC 


where DC is the dot-color number 
and BC is the background-color num- 
ber (as given in any reference to pro- 
gramming the Commodore 64). 

The addresses for all the graphic 
functions and the parameters they 
take, along with locations to be 
POKEd with clipping values and flags 
for various drawing styles, are sum- 
marized in Table 3 (page 60). The 
best way to see how these shape- 
drawing routines are used is to exam- 
ine the demonstration programs in 
Listing Six (page 78), "SHAPES 
DEMO," and Listing Seven (page 
80), “STELLATION.” All the differ- 
ent style options are exercized there. 
It is useful to save an abbreviated ver- 
sion of SHAPES DEMO, consisting of 
just the lines up to 340 and the sub- 
routines following line 1620. This 
skeleton program can then form a 
base, providing all the POKE and SYS 
locations you need and to which you 
can add your own image-generation 
control program. 


Auxiliary Programs 

SHAPES DEMO and STELLATION 
make use of two auxiliary programs 
that, while not strictly needed to pro- 
duce graphic images, provide utilities 
to both enhance the image itself and 
speed the drawing process. Listing 
Eight (page 80) is a routine for sort- 
ing an integer array indirectly 
through a key array (to determine 
drawing order for facets in a polygon 
mesh quickly). Listing Nine (page 
82) allows you to add text to graphic 
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REM ORDERED DITHER ARRAY —RECURSIVE FIL 
1-0J-0K- (NO 3 
— REM ‘P’ IS ORDER OF ARRAY, SIZE IS (2 ` P) x 2 P) 


P=2"P:DIMAP-1,P-1) 

GOSUB 100 

END 

IF K=P THEN A(l,J)=N:N=N-+ 1:K=K/2:RETURN 
K=2*K:GOSUB 100 

l=1+K:J=J+K:K =2*K:GOSUB 100 

=| —K.K - 2 XK:GOSUB 100 

=|+K:J=J - K:K=2*K:GOSUB 100 

|=| - KK—K/2:RETURN 


Figure 7 


(SET UP GRAPHICS, STYLES, ETC) 
SP —52119:REM ADDRESS OF SPHERE FUNCTION 


SYS(SP),80,75,30:REM DRAW A SPHERE OF RADIUS 30 AT X= 80, Y 75 
SYS(SP), 300,50 :REM DRAW ANOTHER SPHERE AT X= 300, y — 50 

REM SINCE NO RADIUS IS, SPECIFIED, LAST VALUE IS USED AS DEFAULT 
SYS(SP),200,150,40:REM NEW SPHERE RADIUS (40) BECOMES DEFAULT ` 


Figure 8 
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images in a variety of styles. 

The code for these routines is short 
enough to be tucked in behind Com- 
modore's DOS Wedge program so 
that, again, you don't lose any BASIC 
program space but maintain full 
compatibility with the wedge. If you 
are willing to give up the convenience 
of the wedge, however, you can easily 
relocate these routines to the end of 
the "interface" subprogram to keep 


BIT-MAP SCREEN 


1 
H 


COLOR MAP 


CLIPPING BOUNDS 


the graphics package in one piece. 

The KEYSORT routine works with 
two l-dimensional integer arrays of 
the same size. One is filled with some 
"priority" parameter (such as the 
"average Z” coordinates for the fac- 
ets in a polygon mesh), and the other 
becomes a "key" array whose ele- 
ments index those in the "priority" 
array in increasing order. 

To use the routine, POKE the max- 


: 40960-48959 ($A000-$BF3F) 
: 33792-34791 ($8400-$87E7) 


(relative to object center): 


imum element index of the arrays 
into location 140, the address of the 
first (Oth) element of the key array 
into locations 251 (low byte) and 252 
(high byte), and the base address of 
the priority array into 253 and 254. 
You can find these array base ad- 
dresses easily because the Commo- 
dore 64 places the address of the 
"current BASIC variable" into loca- 
tions 71 and 72. Setting the Oth ele- 


893 ($037D) : LEFT BOUND 
894  ($037E) : RIGHT BOUND 
895  ($037F) : UPPER BOUND 
896 ($0380) : LOWER BOUND 
53280  ($D020) : BORDER COLOR [0-15], POKE with 1 to match white screen 


STYLE FLAGS: 


838 
839 
868 
871 
898 


($0346) 
($0347) 
($0364) 
($0367) 


($0382) ` 


: SHADE STYLE [0 — random, 1 —halftone] 

: SCALE FLAG [0 — normal (1:1), 1 = scaled (3:4)] 

: EDGES FLAG [0 — normal, 1 — add lines to facet edges] 
: EDGE/LINE MODE [0 — draw, 1 — erase] 

: LIGHTING STYLE [O — normal single source, 1 —backlit] 


FUNCTION LOCATIONS —CALL WITH "SYS(FNCTN), PARAMETERS.” OPTIONAL PARAMETERS IN SQUARE BRACK- 


(SCOE2) ` 


ETS, DEFAULT VALUES ARE USED IF NOT SPECIFIED 


: SWITCH TO GRAPHICS MODE 


49378 | TO! 

49411  ($C103) : RETURN TO TEXT SCREEN 

51979 ($CBOB) : CLEAR[,CLEAR BYTE] FILL BIT MAP WITH CLEAR BYTE DEFAULT = o | 

52001. ($CB21) : COLOR[,COLOR BYTE] FILL COLOR MAP WITHCOLORBYTE 

52023. ($CB37) : PLOT,X,Y SET POINT AT (X, Y) 

52026 ($CB3A) : UNPLOT, X, Y CLEAR POINT AT (X,Y) ` 

52049 ($CB51) : LINE,X1, Y 1,X2, Y2 DRAW A LINE BETWEEN (X1, Y 1) AND (X2, Y2) 

52052  ($CB54) : FACET, X1, Y1,X2, Y2, X3, Y3, VA DRAW A SHADED TRIANGULAR FACET BETWEEN COORDINATE 


CURVED SURFACES: 


PAIRS (X1,Y 1), (X2, Y2) AND (X3, Y3) USING "VA" SHADE VALUE (0:BLACK TO 64: WHITE) 


52119 ($CB97) : SPHERE, X, YR] DRAW A SPHERE CENTERED AT (X, Y) WITH RADIUS R 

52141 ($CBAD) : TOROID,X,Y[,RI,RO] DRAW A TOP-VIEW TOROID WITH INNER RADIUS RI AND OUTER RADIUS RO 
52150 ($CBB6) : VCYL,X, YLR,HL] DRAW A CYLINDER WITH AXIS VERTICAL, RADIUS R AND HALF-LENGTH HL 
52153  ($CBB9) : HCYL,X, YR, HL] DRAW A CYLINDER WITH AXIS HORIZONTAL 

52186 ($CBDA) : VTOR,X, YL,RLRO] DRAW AN EDGE-VIEW TOROID WITH AXIS VERTICAL 

52189  ($CBDD) : HTOR,X, YLRLRO] DRAW AN EDGE-VEIW TOROID WITH AXIS HORIZONTAL 

52203 ($CBEB) : VSPOOL, X, Y RIRO] DRAW AN INSIDE-VIEW TOROID (“SPOOL”) WITH AXIS VERTICAL 
52206  ($CBEE) : HSPOOL,X, vi RLRO] DRAW AN INSIDE-VIEW TOROID ("SPOOL") WITH AXIS HORIZONTAL 

Table 3 
Graphics Addresses 
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ment of an array equal to itself mere- 
ly establishes it as the current 
variable. Then you can transfer the 
contents of 71 and 72 to the proper 
pointer at 251/252 or 253/254. Be 
careful to use literal numerics for 
*25]" and so on, because you don't 
want to change the current variable. 
After setting up the pointers, SYS to 
the start of the KEYSORT routine. 
Another caution to observe if you use 
KEYSORT for other applications is 
not to create any new variables be- 
tween finding the array base address- 
es and invoking KEYSORT, because 
arrays will be pushed up in memory 
to keep them at the end of BASIC's 
variable storage. 

KEYSORT is set up to handle arrays 
with up to 256 elements each. If need- 
ed, you can sort larger arrays by break- 
ing them into smaller arrays, sorting 
with KEYSORT, and then collating the 
results. Merging a few already sorted 
arrays is a fairly simple operation that 
you can do in a single pass, extending 
the usefulness of this routine. 

STELLATION uses KEYSORT 
(lines 840-880) to determine the 
drawing order for the facets of a 
small stellated dodecahedron (Figure 
6, page 55). This is a polyhedron that 
is not strictly convex (some internal 
dihedral angles are greater than 180 
degrees), causing some foreground 
facets to partially obscure those in 
the background. The Painter's algo- 
rithm is used to handle hidden sur- 
face removal. Each newly drawn fac- 


et completely overwrites the 
background (clearing, as well as set- 
ting, points) so that drawing facets 
from back to front gives a proper ren- 
dering of the object. 

The stellated dodecahedron of Fig- 
ure 6 usually has only 30 visible or 
partially visible facets. Sorting with 
BASIC would be satisfactory here, but 
more complex polygon mesh objects 
can easily contain hundreds of visible 
and partially visible facets. You can 
really appreciate KEYSORT in those 
cases. Although it uses the simple and 
inefficient bubble-sort algorithm, be- 
ing implemented in machine code lets 
KEYSORT run circles around any BA- 
SIC sorting alternative. 

The final routine, in Listing Nine, 
WRITE, allows you to add text to the 
graphic display. The primary reason 
for implementing this as a machine 
code routine is that the bit map for 
the graphic image is located in the 
shadow RAM beneath the BASIC 
ROM (again saving useful BASIC 
program memory space). We can 
transfer bit images from the charac- 
ter ROM to the bit map just by PO- 
KEing values to the bit map, but we 
gain more flexibility if we first read 
the bit-map bytes to exclusive OR 
them, AND them, and so on with 
character image. Reading the shad- 
ow RAM requires that the BASIC 
ROM be switched out (through the 
bank switching used in the Commo- 
dore 64), something a BASIC pro- 
gram cannot do (and hope to contin- 
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Listing One 


@0001 
00002 
092003 
00094 
Q@0005 
09996 
200987 
22008 
000087 
00010 
00011 
00012 
020135 
08014 
00015 


20209 
0909 
20020 
090928 
2990 
0909 
00890 
2000 
Wu 


E 

MLFCND =#AC 
MLFI.ER =$AD 
FROD -£AE 


: INTEGER ARITHMETIC ROUTINES 
e RICHARD L. RYLANDER 8/12 


H 
: REVISED 10/27/84 TO ADD FULL DOUBLE 
; FRECISION ARGUMENTS IM DIVIDE ROUTINE 


, 
FERMER ROCCO N X W NOK IE EE OE e e E TENNE x+ x £ 


H 
; USE FAGE ZERO LOCATIONS WHERE POSSIBLE FOR 
3 ITERATIVE FROCEDURE WORK SFACE 


$ MULTIFLICAND 
$ MULTIFLIER 
s PRODUCT 


04 00934 


DIA gage ; 00047 COQF 85 AD 
00017 0000 DVDND =3FD ; DIVIDEND/QUOTIENT (0048 C011 og QQ 
øva18 2008 DVSOR =#F B ; DIVISOK 00049 dCO13 oi 98 
009197 0009 RMNDR  -$B4 3 REMAINDER Doan CØIS 46 AD 
00020 eave ; 00051 C217 92 oi 
Q0021 eonun RADCND =4AC : RADICAND 000852 C019? 18 
00022 LGG ROOT  =#@723C ; SQUARE ROOT @@@53 CØIA 45 AC 
00023 OVAA ; @2as4 CO1C 6A 
00024 vøre | TEMP — =3FB @@@5S CØID 44 AE 
20025 Boga : @@@56 COIF CA 
82026 0000 ; SET UP SEED VALUES FOR FSCUDO- RANDOM NUMBERS 00057 C020 DØ F3 
00827 ovaa m geass ce22 85 AF 
0328 COQQ FF RNDM .BYTE SEF 255 Dos CØ24 ¿Q 
gauze cea SS gaa6e ce2s 

00029 COO? Qo RTCMP .BYTE 100,100 ogs: CØ25 

20027 cCoQ: ga 

goë CØ24 

00021 COO4 
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å 
SQUARE LDA MLFUND 


MLOOF 


NOADD 


ue execution). 

The subroutine following line 1780 
in SHAPES DEMO illustrates how to 
print text in a variety of styles on the 
bit-map image. Although the pro- 
gram actually uses only one style, the 
subroutine allows for five possibili- 
ties. Normal (*black” on ‘“‘white’’) 
characters and reverse characters can 
overwrite the background, black 
characters can be ORed with the 
background, white characters AND- 
ed with the background, or black 
characters exclusive ORed with the 
background. The last possibility gives 
characters that "change phase" 
across black/white edges in the 
image. 


Conclusion 

The graphics package described here 
we hope presents some new ap- 
proaches to computer-generated im- 
ages on small systems. At the same 
time, I'm sure I've missed some obvi- 
ous tricks that would speed up the 
programs or reduce their size. I will 
be interested to see responses to this 
article and shortcuts or enhance- 
ments that might be added. Although 
the price/performance ratio of small 
graphics system continues to improve 
(especially with the development of 
custom LSI graphics chips), there are 
yet many unexplored software ap- 
proaches to the problem. DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 194. 


g ANNEN HEHE HR EN 


H 

; MULTIFLY SINGLE PRECISION MUL.T IFL ICAND 

; BY SINGLE PRECISION MULTIFLIER GIVING 

; DOUBLE PRECISION FRODUCT (ENTER AT "MULT") 


3; SFECIAL CASE: ENTER AT "SQUARE" TO FIND 
; SQUARE OF SIGNED 8-BIT NUMBER 


s ENTRY TO SQUARE 

; USE ABSOLUTE VALUE 
SEC ; NEGATE 1F NEEDED 
LDA #400 

SBC MLFCND 


BFL POSITV 


STA MLFC!ID 


FOSITV STA MLFLER 
MULT 


LDA #408 ; ENTRY TO MULTIFLY 
LDX #408 

LSR MLFLER 

BCC NOADD 

CLC 

ADC MLFCND 


BNE MLOOP 
STA FROD+1 
RTS 


D 
WITT JE JE FE AE IE IE IE IE JE JE FE E IE IE BE AE IE IE F FE IE FE JE E IE IE E AE AE E IE AE 


(Continued on next page) 
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Listing One 


00062 C025 
00053 C025 
00064 C225 
00065 C025 
Bé C025 
90057 C025 
0048 CØ25 
000A? C025 
00070 Cø25 
9871 Ce2s 
80072 CØ25 os 
90073 C027 85 
00074 CØ29 85 
00075 CØ2B A2 
20076 CØ2D 26 
00077 C@2F 26 
00078 C@3i 2 
900079 C@33 26 
82080 COSS 38 
00081 CIA AS 
00082 C038 ES 
00083 CØIA AB 
20084 CØIB AS 
00085 C@3D ES 
82086 COIF 90 
00087 CO41 84 
00088 C243 BE 
00089 CØ45 CA 
00898 dCQ45 DØ 
00091 CØ48 26 
090092 CØYA 26 
002093 CØYC ØA 
00094 C@4E 26 
@@Q?5 COSA BØ 
00095 CØ52 38 
00297 C053 AS 
90098 Coon ES 
00099  CO57 AS 
00100 C059 ES 
00101 CØSB BO 
00102 COSD Ee 
00103 C@SF DØ 
00104 CØ61 E^ 
00105 CØ53 Gu 
09195 C064 
00107 C44 
00108 CAAA 
901209 CØ64 
00110  CQ54 
00111 CØ54 
9020112 C0644 
00113 EE) 2 
02114 C@6& AF 
00115 C48 BD 
00116 CØSB 8D 
90117 C@4E 85S 
020118 C070 85 
00119 C@72 DE 
020120 C075 2E 
020121 C@78 EE 
0290122 CØ7B DØ 
00123 CØ7D EE 
090124 CØ8Ø Q5 
00125 CQ82 26 
090126 C0B84 26 
090127 CØ86 26 
090128 CØ88 Q5 
00129 CØBA 26 
92150 CØBC 26 
00131 CØBE 26 
02132 CøYØ 38 
00133 C@71 AS 
00134  CO93 ED 
00135 C095 AB 
001358 C097 AS 
00137 C099 ED 
00138 CØYC ou 
00139 COJE 85 
90140 COAG 84 
00141 CØAZ EE 
00142 CØAS DØ 
00143 CØA7 EE 
090144 CØAA CA 
00145 Coop DØ 
00146 CØAD 4C 
00147 CØBØ 38 
90148 C@Bi AD 
900149 CØB4 E? 
00159  COB6 8D 
00151 Copa Ba 
00152 COBB CE 
90153 CØBE CA 
00154 CØBF DØ 
00155 CØC1 ¿E 
00156 CØC4 eE I 
090157 CØC7 48 
009158 coca 
09159 Cece 
00140 Cece 
@@161 CØCs 
00162 Cece 
00143 Cece 
00164 CØCe AD 
90165 CØCB 8D 
90166 CØCE 4D 
00167 COD1 2E 
00168 C@D4 6A 
00169 C@DS GE 
00170 CØDB 8D 
90171 CØDB AD 
00172 CODE BD 
90173 COE1 ¿Q 
90174  COE2 
ERRORS = 28020 
ERRORS = 88808 
SYMBOL TABLE 
SYMBOL VALUE 
DECCNT CØ45 
DVSOR RE D 
MLPLER Boot 
NEXTS CØBE 
FROD Q@BAE 
RMNDR 0084 
RTEMF coaz 
TEMP OOF B 


END OF ASSEMBLY 
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DIVIDE 
FINI 
MULT 
NOADD 
RADCND 
RNDM 
SORT 


DIVIDE DOUBLE PRECISION DIVIDEND 
BY DOUBLE PRECISION DIVISOR GIVING 
DOUBLE FRECISION QUOTIENT 


DIVIDEND IS REPLACED BY QUOTIENT 


QUOTIENT 


IVIDE LDA 
STA 

STA 

LDX 

DLOOP  ROL 
ROL 

ROL 

ROL 

SEC 

LDA 

SBC 

TAY 

LDA 

SBC 

BCC 

STY 

STA 

DECCNT DEX 
BNE 

ROL 

ROL 

ASL 

ROL 

BCS 

SEC 

LDA 

SBC 

LDA 

SBC 

BCS 

ROUND INC 
BNE 

INC 

NOCHNG RTS 


(f en er 9 e oe oe 


[s] 
m 
4 


LDX 
LDA 
STA 
STA 
STA 
STA 
SQRT1 ASL 
ROL 
INC 
BNE 
INC 
NEXT1 ASL 
KOL 
ROL 
ROL 
ASL 
ROL 
ROL 
ROL 
SEC 
LDA 
SBC 
TAY 
LDA 
SHC 
ECC 
STA 
STY 
INC 
ENE 
ING 
NEXT? DEX 
BNE 
JMP 
RESTOR SEC 
LDA 
SBC 
STA 
BCS 
DEC 
NEXT3 DEX 
ENE 
FINI ROR 
ROR 
RTS 


; 
; 
j 
; 
; 
; 
; IN THE FROCESS 
; 
; 
D 
D 


TAKE INTEGER 


IS ROUNDED TO NEAREST INTEGER 


«500 
RMNDR 
RMNDR+ 1 
«£10 
DVDND 
DVDND+1 
RMNDR 
RMNDR+ 1 


RMNDR 
DVSOR 


RMNDR+1 
DVSOR+1 
DECCNT 
RMNDR 
RMNDR+1 


DLOOF 
DVDND 
DVDND+1 
RMNDR 
RMNDR+1 
ROUND 


DVSOR 
KMNDR 
DVSOR+1 
RMNDR + 1 
NOCHNG - 
DVDND 
NOCHNG 
DVDND+1 


#408 
"1:00 
ROUT 
ROOT +1 
TEMF 
TEMF +1 
ROOT 
ROOT+1 
ROOT 
NEXT1 
ROOT *1 
RADCND 
RADCND *1 
TEMF: 
TEMF +1 
RADCND 
RADCND+1 
TEMF 
TEMF +1 


TEMF 
ROOT 


TEMF +1 
ROOT+1 
RESTOR 
TEMF+1 
TEMF 

ROOT 

NEXT2 
ROOT +1 


SORT1 
FINI 


ROOT 
HFØ1 
ROGT 
NEXTS 
ROOT+1 


SORT IL 
ROOT +1 
ROOT 


w we 


PII 


CHECK IF REMAINDER 
IS >= 1/2 OF DIVIDEND 
FOR ROUNDING 


Li CIC JC IC IC E EE EE E ee ee EXE XX 3€ 


SQUARE ROOT OF A 
DOUBLE FRECISION RADICAND GIVING 
SINGLE PRECISION ROOT 


<= REAL ROOT ) 


ASSUME CURRENT LSB OF 
ROOT WILL BE 1 


SHIFT RADICAND LEFT 
TWICE INTO TEMF 


SUBTRACT ROOT ESTIMATE 


FROM TEMP 


SUBTRACTION GK 


IGNORE SUBTRACTION 
AND RESET LSB GF ROOT 


FINAL. /2 TO NORMALIZE 


KAEKA L Li C IEEE E EXE IE LL LE E E E E EE 


GENERATE PSEUDO-RANDOM BYTES 


ANDOM LDA 
STA 
EOR 
ROL 
ROR 
ROR 
STA 
LDA 
STA 
RTS 

. END 


Ccø25 
CØC 1 
C211 
ceic 
ØØAC 
C220 
C@44 


H 
; 
; 
; EXIT WITH P-R 
; 
R 


RNDM 
RTEMP 
RNDM+1 
RTEMP+1 
A 
RTEMP+1 
RNDM 
RTEMF 
RNDM*1 


DLOOP 
MLOOF 
NEXT 1 
NOCHNG 
RANDOM 
ROOT 
SORT1 


C@2D 
c@is 
case 
Coss 
cece 
@33C 
C@72 


BYTE IN ACCUM. 


RTEMP+1 PRESERVES 
CARRY BIT FOR CYCLING 
RANDOM NUMBERS 


DVDND QOFD 
MLECND Wor 
NEXT2 CØAA 


FOSITV Car 
RESTOR Cp 
ROUND CØSD 
SQUARE CA 


End Listing One 


Listing Two 


20001 

200902 
00003 
00094 
Ø0995 
009965 
00097 
20028 
090097 
200910 
02011 

00012 
00013 
000914 
00015 
00016 
00017 
00918 
00019 
00020 
000?1 

00922 
00023 
09024 
00025 
00025 
00027 
20928 
020029 
09939 
20031 
00032 
00033 
00034 
00035 
20035 
00037 
2202038 
90039 
0242 
90941 
920042 
00043 
29044 
00045 
004A 
00047 
00048 
090949 
goose 
00051 
00052 
009053 
Qgaas4 
29055 


29056 
090057 
22258 
00057 
090069 
20061 
gag 
24943 
2064 
00045 
00044A 
00067 
09968 
GER 
00907 
09071 
03072 
00073 
00074 
0909075 
00076 
00077 
00078 
000979 
29089 
00081 
009082 
20083 
20984 
86885 
209865 
00087 
09088 
00089 
00070 
000971 
ø9092 
099973 
28294 
000975 
090976 
00097 
00098 
88099 
00100 
00101 
00102 
00103 
20184 
GIG 
20106 
90197 
290108 
08129 
00110 


O09111 
90112 
00113 
00114 
00115 
02116 
920117 
02118 
@0119 
091298 
92121 
92122 


2000 
eooQ 
2999 
eooQ 
eooQ 
2020 
Qoo 
gaga 
300g 
2090 
2222 
2002 
gogo 
22290 
22008 
2020 
0009 
29909 
2000 
2029 
33 
Q33F 
0:41 
0342 
Ø343 
Ø344 
9345 
Ø347 
Ø348 
Ø34A 
Ø34A 
C@E2 
COE? 
CØE2 
caE2 
C@E2 
COE? 
CØE2 
CØE2 
CØES 
CØE7 
CØEA 
CØED 
coro 
COF? 
COF 4 
CØF7 
CØFA 
CØFD 
CØFF 
C192 
C19. 
C103 
C193 
C105 


C103 
C103 
C106 
C108 
C1ØB 
C1ØE 
C111 
C114 
C117 
C118 
C118 
C118 
C118 
C118 
C118 
C114 
Gite 
Cup 
C122 
C125 
C128 
C129 
C12B 
C12C 
C12C 
C12C 
C12C 
C12C 
C12C 
C12E 
C130 
C132 
C134 
C136 
C138 
C124 
C13B 
C13D 
C13F 
C140 
C142 
C143 
C143 
C143 
C143 
C143 
C143 
C143 
C143 
C145 
C146 
C148 
C14B 
C14D 
C14F 
C151 

C152 
C154 
C157 
C158 
C159 
C154 
C15B 
cisc 
C15F 
C161 

C164 


A9 
2C 
A? 


8D : 


= 
~ 


29 
85 
A? 
ED 
AA 
4A 
4A 
4A 
AB 
B3 
85 
B9 
85 


11 
20 
11 
22 
42 
FC 
DH 
22 
18 
43 
19 
18 


01 
Wu 
oo 
go 
a 
22 


Fi 


AØ 
FC 
og 
FB 
p 


~ 
< 


FB 


FB 
FC 


Fé 


AB 
FB 
C4 
FC 


84 


E 
mI 


86 
87 


CR 


C1 


C1 


GRAPHICS 


» A^ cas ee on we 


H 
RAM=3$4Ø33E 


UTILITIES 


RICHARD L. RYLANDER 11/4/84 


LOAD ARITHMETIC UTILITIES FIRST 


ORIGIN-4$COE2 


, 
MLPCND=#AC 
MLFLER=FAD 
FROD=5AE 
MUL.T=3CØ11 


H 
RNDM=#C000 


; MULTIFLICAND (S) 
; MULTIFLIER (S) 
; PRODUCT (D) 
; CALL FOR MULTIFLY 


RANDOM NUMBER 


EI 


RANDOM- SC OCH ; CALL FOR RANDOM 


, 
NOTE - ^ CALL TO 'RANDOM' LEAVES A KANDOM BYTE 
IN THE ACCUMULATOR 


*-RAM 


FLTFLG w=*+1 
XFLT *-*42 
YPLT ker 
VICI H=H+1 
VIC2 eat] 


VALUE sz 


HTORRM *=*+1 
NOSCAL *=%*+1 
TEMP ¥=*+2 


FLOT/UNFLOT FLAG 

ABSOLUTE FLOT COORD 

ABSOLUTE FLOT COORD 

REGISTER STORAGE 

REGISTER STORAGE 

FINAL NORMALIZED SHADE VALUE 
SHADE FLAG, 1=HALFTONE 

SCALE FLAG, 1=NO SCALE 
TEMPORARY STORAGE 


+2 


"- < wee w en en n er .. 


*=ORIGIN 


oO. w w^ ww we ww er 


RFON LDA 
ORA 
STA 
LDA 
STA 
AND 
ORA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


; 
D 
E 
; 
; 
G 


RFOFF LDA 


RHR DENE 


w es aen 


3. FILL COE 


, 

COLOR LDA 
LDX 

COL 1 STA 
STA 
STA 
STA 
DEX 
BNE 
RTS 


INNE NE DEN 


CLEAR HI 


Ian an w er os 


M 


LEAR LDA 
STA 
LDY 
STY 
LDA 
LDX 
CLRLP STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


HHH HH 


; 

; 

; 

; PLOT AND 
; SCREEN. 

; ARE POKE 


D 

PLOT LDA 
- BY 

UNFLOT LDA 
STA 
LDA 
AND 
STA 


SEC 
LDA 
SBC 
TAX 
LSR 
LSR 
LSR 
TAY 
LDA 
STA 
LDA 
STA 


2000022220200 0 222222222 See eee eee LEE 


TURN ON BIT MAP GRAFHICS MODE, 
SAVING REGISTER VALUES FOR 
RETURN TO TEXT MODE LATER. 


$DO11 
"320 
#DQ11 
#DDQQ 
VIC1 
HEFC 
HFØL 
$DDØØ 
3DO18 
VIC2 
#319 
#0018 


HE Te Te HEH HE He HE Te HE HEE TE ETE 6 OG EE 0 EEE OE 


RETURN TO TEXT SCREEN 


$D2O11 
#$DF 
$DQ11 
VIC1 
$DDØØ 
VIC2 
40018 


ØKE DN EE EEEE SD de 26 GM a 36 36 36 6 NG EE 
OR MAP FOR BLACK DOTS ON WHITE 


4501 ; POKE NEW COLORS HERE 
ap 

$8400, X 

#8520, x 

£3400, x 

$8700, x 


COL 1 


HEEE A A JE IE NN NENNE AE TE EXE E E ME A JE AE DEMONEN i it 
-RES GRAFHICS SCREEN 


H$AØ 
$FC 

#2 

$FB 

#2 ; CLEAR BYTE 
#520 

(4FB) ,Y 


CLKLP 
#FC 


CLRLP 


Fe A HEHE HE HEHE TE HEE TE EEE E IEE EEE FEE EE DE DENE DE 


UNPLOT POINTS ON HI-RES GRAPHICS 
ABSOLUTE X AND Y SCREEN COORDINATES 


D INTO XPLT, XFLT+1, AND YFLT 
Su 
TE $2C 
#380 
PLTFLG 
301 y BASIC ROM OUT 
"FE 
301 

3 INVERT Y COORDINATE TO 
HFC7 ; FUT ORIGIN IN LOWER LEFT 
YPLT s CORNER OF SCREEN 

s £199. VOLT 
A 
A 
A 
TABLE1,Y 
$FB 
TABLE2,Y 
SFC 

(Continued on page 64) 
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DIGITAL RESEARCH COMPUTERS 


(214) 225-2309 


DISK DRIVE SPECIAL! 
5!" Double Sided-Double Density 


Brand New, Unused. Mfg. in Japan by 
Canon. 2/3 Height - Direct Drive! 


51392 
NEW! 


LOW POWER! 
150 NS ADD $10 
BLANK PC BOARD 


WITH DOCUMENTATION 
$49.95 


FULLY SUPPORTS THE 
NEW IEEE 696 $100 
STANDARD 
(AS PROPOSED) 


$4995 |2 ror $85 


64K $100 ST 


* 


ATIC RAM 


PRICE CUT! 


i FEATURES: 
Industry Standard Pin Out. 6MS SUPPORT ICs + CAPS  * Uses new aK x 0 (TMM 2016 or HM 6116) RAMs. 
Access. 40 Tracks. $17.50 * w dior oie EEE 696 we eene 
* 64K d I roximately 5 ^ 
FULL SOCKET SET — ] 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 20168 as fast as 100 NS. FOR YOUR HIGH 


SPEED APPLICATIONS.) 

SUPPORTS PHANTOM (BOTH LOWER 32K 
AND ENTIRE BOARD). 

2716 EPROMs may be installed in any of top 48K. 
Any of the top 8K (E000 H AND ABOVE) may 


be disabled to provide windows to eliminate 
any possible conflicts with your system monitor, 
disk controller, etc. 

Perfect for small systems since BOTH RAM and 
EPROM may co-exist on the same board. 
BOARD may be partially populated as 56K. 


FOR 56K KIT $125 


| 
TESTED ADD $50 * 
1 1 999 KIT) 


NEW! 


LOW POWER! 
RAM OR EPROM! 


BLANK PC BOARD 
WITH 


Sold on a First Come Basis 
Add 52 Each U.P.S. 


256K S-100 SOLID STATE DISK SIMULATOR! 
WE CALL THIS BOARD THE "LIGHT-SPEED-100" BECAUSE IT OFFERS 
AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 
WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 


FEATURES: 

256K on board, using * 5V 64K 

DRAMS. 

Uses new Intel 8203-1 LSI Memory 

Controller. 

Requires only 4 Dip Switch Selectable 

I/O Ports. 

Runs on 8080 or Z80 S100 machines. 

Up to 8 LS-100 boards can be run 

together for 2 Meg. of On Line Solid 

State Disk Storage. 

* Provisions for Battery back-up. 

* Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

* The LS-100 provides an increase in 


* 
* 
* 


r 


PRICE CUT! 


FEATURES: 
x Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
Fully supports Extended Addressing. 

64K draws only approximately 500 MA. 

200 NS RAMs are standard. (TOSHIBA makes 
TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


DOCUMENTATION 
$52 


* + + 


rae wire. cO ove SUPPORT ICs * CAPS * Board i» configured ar 1168 blocks and 8-2K 
| BLANK PCB * ip la tobe preet roa Son d $18.00 blocks (within any 64K block) for maximum 
| flexibility. 
Eu bri. CR boards. FULL SOCKET SET > 2716 EPROMs may be installed anywhere on 
$15.00 Board. 
PROGRAM ON DISKETTE) $ * Top 16K may be disabled in 2K blocks t id 
$6995 1 9900 56K Kit $129 any O Bé en Ren 
å * One Board supports both RAM and EPROM. 
(8203-1 INTEL $29.95) #LS-100 (FULL 256K KIT) 64K Kit $139 * RAM supports 2MHZ operation at no extra 
charge! 
ASSEMBLED AND * Board may be partially populated in 16K 
THE NEW ZRT-80 TESTED ADD $50 increments. 


CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TO MAKE A 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTE 
SERVICES. = jr ure 


FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 


32K S100 EPROM/STATIC RAM 
FOUR FUNCTION BOARD! 


EPROM II 
FULL 


BLANK 
PC BOARD 
WITH DATA 

$39.95 


EPROM KIT 


$69.95 SUPPORT 


capabilities. IC'S 
x RS232 at 16 BAUD Rates from 75 PLUS Cape 
to 19,200. ARD He Š $16 


24 x 80 standard format (60 Hz). 
Optional formats from 24 x 80 

(50 Hz) to 64 lines x 96 characters 
(60 Hz). 

Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 
Uses N.S. INS 8250 BAUD Rate Gen 
and USART combo IC. 

3 Terminal Emulation Modes which 


We took our very popular 32K S100 EPROM Card and added 
additional logic to create a more versatile EPROM/RAM Board. 


FEATURES: * 


FULL 
SOCKET SET 
$15 


This one board can be used in any one of four ways: 

A. As a 32K 2716 EPROM Board 

B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 

D. As a 32K Static RAM Board 


i i New 2K x 8 (TMM2016 or HM6116; RAM's 
are Dip Switch selectable. These G> N* Uses 
include the LSI-ADM3A, the Heath BLANK PCB WITH 2716 ¿< Q p yt brug IU Erlenda Aa: knr (As Proposed) 
ke er wa. iplis CHAR. ROM, 2732 MON. ROM `. Pe x 200 NS (FAST!) RAM'S are standard on the RAM Kit 
M SM n ar d Qa an * Supports both Cromemco and North Star Bank Select 
* Any polarity of video or sync. $49 95 Q v eege 
Kë tss pa 009 ee: ` * On Board wait State Generator 
F HM Sue so x.9 seg SOURCE DISKETTE - ADD $10 ° * Every 2K Block may be disabled 
s DE e MUN Cater MART, nm Er JE TR an pes one Sepe xp 9 * Addressed as two separate 16K Blocks on any 64K Boundary 
* 7 x 9 Character Matrix. SET OF 2 CRYSTALS - ADD $7.50 x Perfect for MP/M* Systems 
* Requies Par. ASCH keyboard. * RAM Kit is very low power (300 MA typical) 


WITH 8 IN. 
SOURCE DISK! 


(CP/M COMPATIBLE) $9995 __., 
Digital Research Computers 


P.O. BOX 461565 - GARLAND, TEXAS 75046 - (214) 225-2309 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $40 


TERMS: Add $3.00 postage. We pay balance. Orders under $15 add 756 
handling. No. C.O.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% T ax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50, add 85€ for for insurance. 


(COMPLETE KIT, 
2K VIDEO RAM) 


WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 
Circle no. 33 on reader service card. 


*TM OF DIGITAL RESEARCH INC. (CALIF.) 


Dr. a wing on the C-64 (Listing Continued, text begins on page 50) 


Listing Two 


ØØ123 C166 BA TXA 00214 C212 FQ 1Ø BEQ NORM 
900124 C167 29 97 AND #407 020215 C214 ; 
00125 C149 18 CLE @@216 C214 ; SCALE Y FROM Ø-239 PSEUDO-COORDINATES 
00126 C15A 65 FB ADC $FB 900217 C214 ; TO 0-199 TRUE SCREEN COORDINATES BY 
90127 CiéC 85 FB STA $FB 00218 C214 $ Y = (Y*1) 213/256 
00128 C16E AD 3F Ø3 LDA XFLT 00219 C214 ; 
00129 C171 29 F8 AND ##F8 900220 C214 AC 41 Ø3 SCALE LDY YFLT 
00130 C173 65 FB ADC #FB 00221 C217 C8 INY 
00131 C175 85 FB STA #FB 00222 C218 84 AD STY MLFLER 
00152 C177 AD aQ Ø3 LDA XFLT+1 00223 C214 A? DS LDA ##D5 ; 0g. 
Q0133 C17A 65 FC ADC 4FC 00224. C21C 85 AC STA MLFCND 
90134 Ci7C 85 FC STA #FC 00225 C21E 20 11 CØ JSR MULT ; RETURN WITH HIGH BYTE 
9021355 C17E A? AB LDA ##AQ 00226 C221 BD 41 Ø3 STA YPLT ; IN ACCUMULATOR 
BAIIA C180 65 FC ADC $FC 900227 C224 AD 46 03 NORM LDA HTORRN 
00137 C182 85 FC STA 4FC 00228 C227 FQ oz BED RFLT 
00138 C184 AD IF Q3 LDA XFLT 00229 C229 4C DD C1 JMP SHADE 
90139 C187 29 07 AND #107 900230 C22C 4C FF C1 RFLT JMF RSHADE 
90140 C189 49 Q7 EOR #£07 00231  C22F ; 
00141 C18B AA TAX 00232 C22F ; 
90142 C18C og Øl LDA $101 00233 C22F ; 
00143 C18E CA FLOTLF DEX 00234 C22F QQ THRESH .BYTE #QQ,$@8,+$35,#3D 
00144 C1BF 30 03 BMI FLOT2 00234 C230 og 
@2145 C191 ØA ASL A 00234 C231 35 
900146 C192 DØ FA BNE FLOTLP 00234 C232 3D 
00147 C194 AQ QQ PLOT2 LDY #0 900235 C233 a2 -BYTE $02,4ØA,$37,$3F 
@0148 C194 CC 3E az BIT FLTFLG 00235 C234 QA 
00149 C199 18 os BFL NOFLOT 00235 C235 37 
ØØISØ C19B 49 FF EOR $EFF 00235 C236 IF 
@@151 C19D 31 FB AND (4FB),Y 00236 C237 10 -BYTE #10,%18,#25,#2D 
90152 C19F 2C .RYTE #2C 00236 C238 18 
08153 CliAQ 11 FB NOFLOT ORA (4FB),Y 90236 C239 25 
00154 C1A2 91 FB STA (4FB),Y 900236 C23A 2D 
02155 C1A4 AS Gi LDA $01 ; BASIC ROM RESTORED 90237 C23B 12 .BYTE £12,#1A,#27,$2F 
QQ156 CiA& ØP Ø1 ORA 45901 80237 C23C 1A 
09157 C148 85 Q1 STA #@1 002357  C25D 27 
92158 CIAA 60 RIS 00237 C23E 2F 
Q0159 CiAB ; 00238 C23F 31 «BYTE 4$31,$39,404, FDC 
@@16@ CIAB Gu TABLE1 .BYTE $00,440,48Ø,+CØ 90238 C24Ø 39 
09140 CIAC Ap 90238 C241 Ø4 
@016@ CIAD Go 00238 C242 QC 
@216@ CiAE CO 00239 C243 33 .BYTE 435,$3B,4$Ø6, 50E 
00161 CIAF QQ «BYTE 400,$40,4$80,4C0 909239 C244 ZB 
92161 CIBO Ap 900239 C245 Q5 
@0161 CIBL 89 9020239 C246 DE 
90151 CiB2 CØ 00240 C247 21 .BYTE $21,#29,#14,#1C 
09:42 C1B3 av «BYTE #00,%40,480,#CO 090240 C248 29 
00162 C184 Ap 00249 C249 14 
90162 C1B5 BQ 90240 C24A IC 
00152 Cibé CQ 00241 C24B 23 «BYTE #23,42B,#14, ELE 
020153 C167 Go -BYTE £00,£42,#80,4C0 00241 C24C 2B 
90153 C1B8 40 90241 C24D 16 
00163 C159 BQ 00241 C24E 1E 
00163 CiBA CØ 90242 C24F Q3 .BYTE 403,4$0B,436, EZE 
90164 CIBB QQ «BYTE $00,$40,$80,3CØ 00242 C250 ØB 
001654 CIBC 40 00242 C251 34 
920164 CIBD BØ 00242 C252 3E 
00164 CIBE ca 90243 C253 Gi .BYTE 401,$Ø9,$34,$3C 
00165 CIBF QQ «BYTE $00,540,580,4C0,£00 00243 C254 29 
@@165 CICØ 140 00243 C255 34 
@21465 CiCi BQ 00243 C256 3C 
@Q165 CIC2 ce 90244 C257 13 -BYTE $13,$1B,$26,$2E 
@@165 CICI QQ 00244 C258 1B 
900156 CIC4 ; 00244 C25? 26 > 
©8167 CIC4 QQ TABLE2 .BYTE x00,501,4$02,50: 00244 C254 2E 
Q0167 CICS gi 90245 C25B 11 -BYTE $11,$19,$24,42C 5 
00157 CiCé oz 00245 C25C 19 
900157 CIC7 3 00245 C25D 24 
@0148 CICB Gs -BYTE £05,4506,507,4508 00245 C25E 2C 
90158 Cic? Q6 902456 C25F 32 «BYTE $32,53A,3Ø7,$50F 
00168 CICA 87 00246 C260 3A 
@Qié8 CICB op 00246 C261 07 
90169 CICC QA «BYTE $ØA,$ØB,FØC, FØD 00246 C262 OF 
2901569 CICD ØE 00247 C263 30 . BYTE $30,$38,$Ø5, $ØD 
90159 CICE ec 900247 C244 38 
90169 CICF ou 90247 C265 Gs 
00C170 CIDØ ØF .BYTE 30F,510,511,512 900247 C246 QD 
@@172 C1D1 18 00248 C247 22 .BYTE 422,$2A,$17,$1F 
00170 CID2 11 900248 C268 2A 
00170 C1D3 12 00248 C269 17 
90171 C1D4 14 BYTE #14,#15,#16,817 00248 C254 IF 
90171 C1iDS 15 00249 C26B 20 .BYTE $20,#28,415,#1D 
90171 CID6 15 020249 C26C 28 
920171 C1D7 17 900249 C25D 15 
90172 CIN8 19 «BYTE 519,510,51B, EI, 51E 00249 C26E 1D 
900172 CID9 1A 90250 C24F i . END 
900172 CiDA 1B 
90172 CIDB 1C 
900172 CIDC 1E ERRORS = 92000 
900173 CiDD ; 
90174 CiDD F MEA EM JERE AE aE gE SE E E GE AE PE GE IE ce eee oes) 
00175 C1DD ; SYMBOL TABLE 
00174 C1DD : SHADING BY HYBRID DITHER/DOT-GROWTH 
00177 C1DD ; SYMBOL VALUE 
90178 CIDD AD 3F Q3 SHADE LDA XFLT ; USE BITS ----- (IT CLEAR C12C CLRLF C138 COL 1 CE COLOR C118 
00179 CIEØ 29 97 AND 4407 | OF "XI SCREEN COORD GREATR C1FC GRFOFF C1Ø3 GRFON COE2 HTORRN Ø244 
960180 CiE2 8D 48 oz STA TEMF MLPCND @@AC MLFLER ` Q@QAD MORE C2ØC MULT C911 
92181 CiES AD 41 Q3 LDA YPLT jy AND BITS —---- ** NOFLOT C1AQ NORM C224 NOSCAL Ø347 ORIGIN —CØE2 
90182 CiEG 29 07 AND ##07 ; OF 'Y' SCREEN COORD FLOT C143 PLOT2 C194 PLOTLP C18E FLTFLG 33 
00183 CIEA QA ASL A 3 SHIFTED INTO -—-xx«-—-— PLTSHD C2QF PROD ØØAE RAM Ø33E RANDOM X COC8 
00184 C1EB QA ASL A ; FOSITION TO DETERMINE RNDM CQ20 RPLT C22C RSHADE CIFF SCALE C214 
00185 CIEC ØA ASL A 3; 6-BIT OFFSET IN SHADE C1DD TABLE 1 C1AB TARLE2 C1C4 TEMF @248 
00186 CIED ØD 48 oz ORA TEMP ; THRESHOLD TABLE THRESH C22F UNFLOT C146 VALUE 0344 VIC1 0342 
90187 CIFØ AA TAX VIC2 Ø343 XPLT Q33F YPLT 9241 
@Q188 CiF1 BD 2F C2 LDA THRESH,X ; SCREEN-FOSITION-WE IGHTED ° As 
00189 CIF4 CD 44 Q3; CMP VALUE ; THRESHOLD VALUE END OF ASSEMBLY End Listing Two 
00190 CIF7 10 03 BFL GREATR 
00191 CAFO. 4C 46 C1 JMP UNFLOT 
900192 CIFC 4C 43 C1 GREATR JMP PLOT 
90193 CIFF ; E 2 
00194 CiFF J (GC CHOICE JO JE FE JE E JE E AE AE IE AE JE JE LESE EE EE E E L Í Ih 
quss cher | isting Three 
9001956 CIFF : SHADING BY RANDOM HALFTONE Z 
00197 CIFF ; 80001 coco ; FACET - DRAW SHADED TRIANGULAR FACETS 
90198 CiFF 290 C8 CO RSHADE JSR RANDOM 00082 goga 3 AND STRAIGHT LINES. 
90199 C2Ø2 4A LSR A ; REDUCE RANDOM BYTE 900003 agag ; 
90200 C223 4A LSR A ; TO 6 BITS FOR SHADE 22024 oova ; RICHARD L. RYLANDER 11/4/84 4 
90201 C204 CD 44 Q3 CMP VALUE 3 VALUE COMFAR ISON 22005 e220 ; 
00202 C207 10 03 BFL MORE 22006 oce j LOAD "ARITH.HEX" AND "GRAPH.HEX" 
900203 C209 4C 46 C1 JMP UNFLOT 00007 coco ; BEFORE USING = 
900204 C2ØC 4C 43 C1 MORE JMP FLOT oooga goaa 
00205 Cer ; ; E 
09206 C2ØF Hk LL EE 00007 0000 ORIGIN = $C26F 
90207 Cor : 20012 Gomm RAM = $0244 
20208 Coop 3 PLOT A POINT WEIGHTED BY SHADING SCHEME Soot! Dopo š 
00209 C2ØF ; AND SHADE VALUE conie. T ep PUE 
00210 C20F š CHECK 'NOSCAL' FLAG FOR SCALING OF Y COORD mett moe DER x Mert 
pte Ging i CHECK 'HTORRN' FLAG FOR TYPE OF SHADING 00015 2000 NOSCAL = 3Ø347 
> PLOT = $C143 
090213 C2ØF AD 47 oz FLTSHD LDA NOSCAL 292017 9920 UNFLOT = $C146 


(Continued on page 66) 
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SMALLE FOR IBM PC 


* | Starlight FORTH 


rie ` P 65SC802 & 65SC816 

* Atari : : e 

* AIM 65 The new 16 bit CMOS 6502's from Small-C Compiler Version 
* Commodore. Western Design Center and GTE 2.1 for PC-DOS/MS-DOS 
Eee Á Source Code included 


» © Highly Extended fig-FORTH | for Compiler & Library 
* Full Double Number Set - Strings * 


» ° Optional Tools: Meta-Cross- Compiler with New 8086 optimizations 


Assembler and Debugger * Rich I/O & Standard Library 
# Multi-Tasking Super Fast FORTH- 83 soon 
Your present 8 bit. system will run faster E 
with 16 bit software (FORIH) and a 65SC802 


and still runs your existing 8 bit software CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Starlight FORTH Systems * Break, Trace, and Change 
15247 N. 35th St variables all on the 


3k Phoenix AZ 85032 “ CE Ge ES 
: (602) 992—5181 Å ource code included 
Ev ow or Datalight 
* * 11557 8th Ave. N.E. 
* »* a Seattle, Washington 98125 


(206) 367-1803 


ASM Or MASM is required with compiler. 
Include disk size (160k/320K), and DOS version with order. 
VISA & MasterCard accepted. Include card no. & expiration date. 
Circle no. 60 on reader service card. Washington state residents include 7.996 sales tax. 
IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


Circle no. 6 on reader service card. 


DATESTAMPER has the answers 


SS E When did we 
uzina 15! CIA print that letter? 
created d modifieg 


201-17 Jan MIN EE ELEME teke 
16:28-24 Dec'B: (58-18 Febe? 16:30-24 Dec'84 V POETE URGE 


-— 


g9:34-22 Jan 6127-30 Jan 35-22 Jan 


ibaa- Feb 59-01 Feb Which is the 
latest version? 


Lei 
> 
E 
= 

F: 
- 
E 
b 


ra 


DateStamper" keeps your CP/M computer up-to-date! 
e avoid erasing the wrong file e keep dated tax records of computer use 
e back-up files by date and time e simplify disk housekeeping chores 


OPERATION: DateStamper extends CP/M 2.2 to automatically record the date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks initialized for datestamping are fully compatible with standard CP/M. 

INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for popular models. Loads automatically at power-on. UTILITIES: * Enhanced 
SuperDirectory e Powerful, all-function DATSWEEP file-management program with date and time tagging * Disk- 
initializer * Installation and configuration utilities PERFORMANCE: Automatic. Efficient. Invisible. Compatible. 
Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 


When ordering please specify format 


8" SSSD, Kaypro, Osborne Formats ........... $49 Write or call for further information 
For other formats (sorry, no 96 TPI) add $5. 
Son end UL EE EE $3 
California residents add 6% sales tax s 
MasterCard and Visa accepted (Plu Pe rfect Sustems) 
Specialized versions of this and other software available for the Kaypro. BOX 1494 * IDYLLWILD, CA 92349 * 714-659-4432 


CP/M is a registered trademark of Digital Research, Inc. 


Circle no. 69 on reader service card. 


Dr. a wing on the C -64 (Listing Continued, text begins on page 50) 
Listing Three 


290168 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00024 
00027 
09028 
080029? 
20938 
090031 
00032 
09933 
09934 
00035 
Q@Q2B346 
ECKE 
29038 
900359 
09049 
20041 
00042 
00043 
00844 
00045 
00044 
GEIER 
00048 
08849 
20852 
20051 
90052 
00053 
20054 
20055 
009056 
90057 
20058 
008059? 
20060 
00041 
@@862 
20063 
00964 
00045 
BH 
00057 
020058 
3006F 
08070 
00071 
00072 
00073 
92074 
000875 
099876 
099077 
90078 
80879 
09988 
20081 
20082 
agaB3 
@0084 
00885 
090865 
90087 
gao88 
200897 
82098 
00091 
00092 
20093 
000974 
009095 
099976 
090097 
88098 
82899 
00100 
00101 
00102 
00103 
20104 
HK 
00104 
20107 
00108 
00109 
00110 
90111 
92112 
92113 
90114 
220115 
00116 
00117 
90118 
90119 
00120 
00121 
00122 
009123 
00124 
00125 
90126 
90127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
001353 
00136 
00137 
00138 
90139 
00140 
00141 
00142 
90143 
09144 
00145 
90146 


GEI 
0009 
2209 
20009 
2099 
2009 
0009 
000a 
0009 
2099 
2008 
oaoa 
GRAAT 
34A 
Ø34C 
@34D 
Q34F 
0350 
0352 
0353 
0354 
0355 
03556 
Ø358 
035? 
OZSA 
0355 
@35C 
@35D 
Q3SE 
ØISF 
GK 
9361 
0362 
@363 
9564 
9365 
9367 
9358 
OIGA 
OIGA 
OIGA 
C26F 
C26F 
C26F 
C26F 
C26F 
C26F 
C26F 
C26F 
C271 
C273 
C275 
C278 
C27A 
C27D 
C280 
C281 
C282 
C283 
C285 
C286 
C286 
C286 
C286 
C286 
C286 
C286 
C288 
C28B 
C28C 
C28F 
C292 
C293 
C296 
C297 
C299 
C294 
C294 
C29A 
C29A 
C29A 
C29A 
C29C 
C29F 
C2AQ 
C2A3 
C2A6 
C247 
C2AA 
C2AB 
C2AD 
C2AE 
C2AE 
C2AE 
C2AE 
C2AE 
C2AE 
C2BØ 
C2B1 
C2B4 
C2B7 
C2BA 
C2BD 
C2BF 
c2c2 
C2C3 
C2C5 
C2C6 
C2C9 
C2CC 
C2CF 
C2D2 
C2D4 
C2D7 
C2DA 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DD 
C2EØ 
C2E3 
C2E& 
C2E8 


@2 
4D 


50 
4D 


KI 


EF 


es 


Co 
Hi 


@3 


o3 
03 


Q3 


Q3 


o3 
03 


HÄ 


o3 
c2 
os 


c2 


MLFCND = AC 
MLPLER = $AD 
FROD = $AE 
MULT = $CO11 
, 
DVDND = $FD 
DVSOR = 4FB 
QUOT = $FD 
DIVIDE = #CQ25 
H 

*xRAM 
, 
XMIN *-*42 
YMIN w= H+) 
XMID *=*+2 
YMID *=#+1 
XMAX Lie 
YMAX w=w+1 
YTOP LES ESI 
YBOT *-*t1 
YBASE  *z**i 
DLTAX1 #=#+2 
DLTAX2 *-z*-*1 
DLTAXS w=*+1 
DELTAX w=x+1 
DLTAY1 #=#+1 
DLTAY2 #=#+1 
DLTAYS #=#+1 
DELTAY #=x+1 
XDIFF #*=#+1 
FLAGI #=*41 
FLAG? *=#+1 
FLAGI #=+1 
FLAG *=#*+1 
EDGES #*=+1 
ERROR #=#+2 
MODE *=w+1 
COUNT #=#+2 
j 
j 

#=ORIGIN 


OCCORRE REACH EXC IE QE EXE IE EXE IE IEEE IE IEEE IE IE IE ee 2636 36 IE ME ee 


; 
5 
D 
3 SCALE ALL Y COORDINATES FROM Ø..239 
; PSUEDO-COORDINATE RANGE TO Ø..199 

; TRUE SCREEN COORDINATE RANGE 


j 
SCALE LDY #6 

LDA ##D5 
STA MLPCND 
LDA YMIN,Y 
STA MLPLER 
JSR MULT 
STA YMIN,Y 
DEY 
DEY 
DEY 
BPL 
RTS 


SCLP 


SCLP 


HR E IE IE l CIE FE FE E E E PE JE GE AE FE FE AE MEER AE IE E JE IE AE FE EXE 


EXCHANGE ‘MIN’ AND 'MID' COORDINATES 


j 

SWAP12 LDY #2 

LOOF1 LDA XMIN,Y 
PHA 
LDA 
STA 
PLA 
STA 
DEY 
BFL 
RTS 


XMID,Y 
XMIN,Y 


XMID,Y 


LOOP1 


H 
D 
aa tt eee E IE HE JE IE JE AE PP Ce Le SS ee eS eee DE GESE 


; 
; EXCHANGE 'MID' AND 'MAX' COORDINATES 


SWAP23 LDY #2 

LOOP2 LDA XMID,Y 
PHA 
LDA 
STA 
PLA 
STA 
DEY 
BPL 
RTS 


XMAX,Y> 
XMID,Y 


XMAX , Y 
LOOF2 


j 
F PEHE IE IE JE IE JE dE IE ee ee cee E eee ee GE 3 


D 
; SORT COORDINATES ACCORDING TO X COMFONENTS 


; 
SORTX 
SORTLF 


LDX 82 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
JSR 
DEX 
BEQ 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
JSR 
JMF 
SORTED RTS 
; 

J PEIE BE FE E E JE IE GE IE FE AE JE JE IE E JE JE FE EJE cllc bl s GE ——— T 


XMID 

XMIN 

XMID+1 
XMIN+1 
NOSWF 1 
SWAF 12 
NOSWP 1 
SORTED 


XMAX 
XMID 
XMAX+1 
XMID+1 ` 
SORTLP 
SWAF23 
SORTLP 


j 

3 DRAW A LINE BETWEEN XMIN,YMIN AND XMID,YMID 
3 USING FAST DDA (DIGITAL DIFFERENTIAL ANALYZER) 
3 TECHNIQUE 

D 

LINE LDA #2 

STA XMAX+1 
JSR SORTX 
LDA NOSCAL 
BEQ OUTLN 
JSR SCALE 


ENSURE XMAX IS 
LARGEST BEFORE 
ORDERING 


'MIN' AND 'MID' 


09147 
2148 
00149 
00150 
08151 
00152 
00153 
00154 
00155 
00156 
00157 
20158 
00159 
00160 
00141 
00142 
9201653 
00164 
90165 


90155 
90157 
20148 
20149 
90170 
90171 
90172 
90173 
90174 
90175 
90176 
92177 
09170 
20179 
20182 
92181 
92182 
90183 
02184 
00185 
90186 
20187 
00188 
02189 
20190 
90191 
82192 
20193 
22194 
20195 
09196 
20197 
92198 
90199 
20200 
20201 
20202 
20283 
00204 
20205 
00286 
20207 
20208 
20209 
20210 
02211 
00212 
00213 
00214 
20215 
92216 
02217 
92218 
00219 
00220 
00221 
00222 
20223 
00224 
20225 
00226 
08227 
00228 
90229 
88232 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
002397 
20240 
20241 
00242 
22243 
20244 
00245 
20246 
20247 
20248 
20249 
20250 
00251 
00252 
20253 
00254 
20255 
00254 
20257 
20258 
82259 
00269 
20261 
00262 
20253 
20254 
22265 
90256 
20247 
00268 
20269 
20272 
00271 
20272 


C2EB 
C2EE 
C2F1 
C2F4 
C2F7 
C2FA 
C2FD 
C302 
C303 
C3Ø5 
C326 
C309 
C3ØC 
C3ØE 


C311.. 


C314 
C317 
C31a 
C31B 


C31E 
C321 
C324 
C327 
C329 
C32C 
C32F 
C332 
C334 
C337 
C33A 
C33D 
C34Ø 
C342 
C345 
C347 
C34A 
C34D 
C34F 
C352 
C354 
C357 
C358 
C35B 
C3SE 
C361 
C364 
C346 
C349 
CIAA 
C36D 
C37Ø 
C373 
C376 
C379 
C37C 
C37F 
C381 
C382 
C382 
C385 
C388 
C38B 
C38E 
C391 
C394 
C397 
C394 
C39B 
C39E 
C3A1 
C3A4 
C3A& 
C3A9 
c3ac 
C3AF 
C3B1 
C3B4 
C3B7 
C3BA 
C3BD 
C3BF 
C3C2 
C3CS 
C3C7 
C3CA 
C3CC 
C3CF 
C3D1 
C3D4 
C3D5 
C3DB 
C3DB 
C3DE 
C3E1 
C3E4 
C3E7 
C3EB 
C3EB 
C3EE 
C3F1 
C3F4 
C3F6 
C3F9 
C3FA 
C3FD 
C3IFF 
C4Ø2 
C4Q4 
C407 
C4ØA 
C4ØC 
C4ØD 
C4ØD 
C4ØD 
C4ØD 
C4ØD 
C4ØD 
C4QE 
C411 
C414 
C416 
C419 
C41A 
C41D 
C420 
C421 


es 
Q3 


93 
o3 


GK 


es 
GR 


Q3 


OUTLN 


STEPY 


LNLP1 


ERASE1 
SK1 


NSLOPE 
SK2 


NOINC 1 


SK3 


; 
STEPX 


LNLP2 


ERASE2 
SEP 1 


NOINC2 
NGSLP 


SKP2 


SKPS 


TEST. 


< w er wa w w 


/LINE 


JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
BNE 
SEC 
LDA 
SBC 
BCS 
LDA 
STA 
STA 
LSR 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
INC 
LDA 
BNE 
JSR 
JMP 
JSR 
LDA 
BNE 
INC 
BNE 
DEC 
BIT 
BMI 
INC 
BNE 
INC 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
DEC 
BNE 
RTS 


LDA 
STA 
STA 
LDA 
STA 
STA 
LSR 
ROR 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
BNE 
JSR 
JMP 
JSR 
INC 
BNE 
INC 
BIT 
BMI 
LDA 
BNE 
INC 
BNE 
DEC 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
SEC 
LDA 
SBC 
STA 


BCS 
DEC 
BIT 
BPL 
RTS 


SEC 
LDA 
SBC 
BCS 
LDA 
PHA 
LDA 
STA 
PLA 
STA 


FINDXY 
XMIN 
XFLT 
XMIN+1 
XFLT+1 
YMIN 
YFLT 
DLTAX1+1 
STEFX 


DLTAX1 
DLTAY1 
STEFX 
DLTAY1 
ERROR 
COUNT 
ERROR 


DLTAX1 
ERROR 
ERROR 
DLTAX1+1 
#2 
ERROR+1 
COUNT 
MODE 
ERASE1 
PLOT 
SK1 
UNPLOT 
FLAG1 
NSLOPE 
YPLT 
SK2 
YPLT 
ERROR+1 
SK3 
XPLT 
NOINC1 
XPLT+1 


ERROR 
DLTAY1 
ERROR 
ERROR+1 
#2 
ERROR+1 


ERROR 
DLTAX1 
ERROR 
ERROR+1 
DLTAX1*1 
ERROR*1 
COUNT 
LNLP1 


DLTAX1 
ERROR 
COUNT 
DLTAX1+1 
ERROR+1 
COUNT+1 
ERROR+1 
ERROR 


DLTAY1 
ERROR 
ERROR 
#2 
ERROR+1 
ERROR+1 
MODE 
ERASE2 
PLOT 
SKP 1 
UNPLOT 
XPLT 
NOINC2 
XPLT+1 
ERROR+1 
SKF3I 
FLAG1 
NGSLF 
YFLT 
SKP2 
YPLT 


ERROR 
DLTAX1 
ERROR 
ERROR+1 
DLTAX1+1 
ERROR+1 


ERROR 
DLTAY1 
ERROR 
ERROR+1 
#0 
ERROR+1 


COUNT 
#1 
COUNT 
TEST 
COUNT+1 
COUNT+1 
LNLP2 


YTOP 
YBOT 
DRAW 
YTOP 


YBOT 
YTOP 


YBOT 


; @ = DRAW, 


ENTRY POINT TO 
OUTLINE FACETS 


CHECK FOR DX>DY 


1 = ERASE 


@ = POSITIVE SLOFE 


3 ALWAYS BRANCH 


3 ALWAYS BRANCH 


FE IE JE IE FE HOC JEE DE IE IE JE FE JE JE FE FE FE E FE AE JE IE NG E CT N 
DRAW A SHADED VERTICAL LINE AT 
XPLT FROM YTOP TO YBOT 


; MAKE SURE YTOP>YBOT 


(Continued on page 68) 
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DE Smet C 


8086/8088 Development Package 


$109 


FULL DEVELOPMENT PACKAGE 


e Full K&R C Compiler 

e Assembler, Linker & Librarian 

e Full Screen Editor 

e Execution Profiler 

e Complete STDIO Library (7120 Func) 


Automatic DOS 1.X/2.X SUPPORT 
BOTH 8087 & S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 


e First and Second in AUG '83 BYTE 
benchmarks 


SYMBOLICDEBUGGER SD() 


e Examine & change variables by name 
using C expressions 

e Flip between debug and display screen 

e Display C source during execution 

e Set multiple breakpoints by function or line 
number 


DOS LINK SUPPORT $35 


e Converts DeSmet.O to DOS.OBJ Format 
e LINKs with DOS ASM 
e Uses Lattice? naming conventions 


WARE 


CORPORATION 


P.O. Box C, Sunnyvale, CA 94087 
(408) 720-9696 
Street Address: 505 W. Olive, 4767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on U.S. 
Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER e 
ENGLAND: MLH Tech, 0606-891146 e JAPAN: JSE 03-486-7151 e 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 


Circle no. 18 on reader service card. 


THE (* JOURNAL 


The C Journal will help YOU use C on YOUR machine 

—|BM PC", CP/M", Macintosh", or UNIX" -based — 

micro, mini, or mainframe. 

It's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

e regular columns for novice through advanced C 
programmers 

e software product and book reviews 

e tips on working with major compilers and 
operating systems 

e news from the ANSI standards committee and the 
industry 

For FREE sample issue and discount subscription 

information, write, call, or circle our reader service 

number. The C Journal is a quarterly publication, 

and costs $28/year (add $9 for overseas airmail). 


Subscriptions /Advertising: Editorial: 
Christina Gardner Rex Jaeschke 
(201) 989-0570 (703) 860-0091 


another independent publication from 
HEN InfoPro Systems 
3108 Route 10 — 
P.O. Box 849 
Denville, NJ 07834 


Circle no. 91 on reader service card. 


TIMES FASTER! 


SuperFast Software Development Tools 


INCREASE YOUR PROGRAMMING EFFICIENCY 
with high-performance software development products from SLR Systems. 
No other tools approach the speed or flexibility of the SLR Systems line. 


“Z80ASM is an extraordinary product...”, 
Robert Blum, Sept. 84 DDJ 


ASSEMBLERS 


e RMAC/M80 macros e Math on external 
e Nested INCLUDES & words and bytes 


conditionals e Define symbols from 
e 16 char. labels on console 
externals e Generate COM, HEX, 
e Built in cross- SLR-REL, or Micro- 
reference soft-REL files 
e Optional case e Time & Date in listing 
significance e Over 30 configure 


Phase/dephase options 


ZüÜOASN «tuit Dig PEO gs. ad et $125 

NEW! Z80ASM+¢ -all tables virtual .............. $195 
NEW! SLRMAC -full Intel 8080, with 

Z80.LIB extensions internal ........... $125 

NEW! SLRMAC+ -all tables virtual ............. $195 


Z80 CPU, CP/M compatible, 32K TPA required. 


"Z80ASM...a breath of fresh air...”, 
Computer Language, Feb. 85 


mE C.O.D., Check or Money Order Accepted 


d 


“in two words, I'd say speed & flexibility", 
Edward Joyce, Nov. 84 Microcomputing 


LINKERS 


e Links SLR & M80 e Three separate 


format files address spaces 
e Output HEX or COM e Load map and 
file SID/ZSID .SYM file 


SLRNK+ includes: 
e All tables overflow to e Works with 


disk FORTRAN & BASIC 

e HEX files do not fill e Generate PRL & SPR 
unused space files 

e |ntermodule cross- e Supports manual 
reference overlays 

e EIGHT separate e Full 64K output 


address spaces 


SLRNK -fastest memory based ......... $125 
NEW! SLRNK+ -full featured virtual ........... $195 
Combo Paks available from $199. - $299. 
For additional information contact SLR Systems 


1-800-833-3061, in PA (412) 282-0864 
1622 N. Main St., Butler, PA 16001 * Telex 559215 


LR Systems 


Circle no. 78 on reader service card. 


Dr a wing on t he C-64 (Listing Continued, text begins on page 50) 
Listing Three 


00273 C424 AD 53 Ø3 DRAW LDA YTOP 90401 C533 AD 42 Q3 LDA FLAGS 
00274 C427 BD 41 Q3 STA YFLT 098492 C534 BD 53 oz STA FLAG 
900275 C42A 290 24 C2 JSR NORM ; PLOT A SHADE-WEIGHTED 00403 C539 20 ZC C4 JSR ENDFTS 
00276 C42D AD 53 oz LDA YTOF ; PIXEL CHECKING ONLY 00404 CS3C BD 54 23 STA YBOT 
00277 C43Ø CD 54 Ø3 CHE YBOT ; FOR SHADE STYLE 00405 CS3F 22 QD C4 JSR VLINE 
00278 C433 FQ Qó BEQ DONE 00406 C542 AD 40 Ø3 LDA XFLT*1 
00279 C435 CE 53 oz DEC YTOF 08407 C545 CD 4E a CMP XMID+1 
00280 C428 4C 24 C4 JMP DRAW 00408 C548 DØ as BNE NEXTX1 
00281 C43B ¿Q DONE RTS 90409 C54A AD 3F B3 LDA XFLT 
00282 C43C ; 90410 C54D CD 4D a3 CMP XMID 
00283 C43C FANN NN NE DENE NG NG DENE IE FE XO NEDE DE DE FE OCIO ICE 00411 CSSQ FO QB BEO CONT 
00284 C43C ; 00412 C552 EE ZE 923 NEXTX1 INC XFLT 
200285 C43C ; FIND ENDFOINTS FOR VERTICAL LINES @2413 C555 DØ Ø3 BNE SKIF3 
90285 C43c ; BETWEEN FACET EDGES ØØ414 C557 EE 40 Ø3 INC XPLT+1 
00287 C43C ; 00415 CSSA AC FB CA SKIP3 JMP FCETLP 
00288 C43C AD SF Ø3 ENDFTS LDA XDIFF 00415 CSSD 38 CONT SEC 
00289 C43F 85 AC STA MLFCND 00417 CSSE AD IF Q3 LDA XFLT 
00290 C441 AD SE Ø3 LDA DELTAY 20418 C561 ED 4A Ø3 SBC XMIN 
@@291 C444 85 AD STA MLFLER 09419 C5464 BD SF Ø3 STA XDIFF 
00292 C445 2Q 11 CQ JSR MULT Q0420 C567 AD 59 Ø3 LDA DLTAX3 
@@293 C449 85 FE STA DVDND+1 90421 CSA FØ 63 BEO FINI 
00294 C445 AS AE LDA FROD 00422 C5&C 8D Sa Ø3 STA DELTAX 
@@295 C44D 85 FD STA DVDND 00423 C56F AD 5D Ø3 LDA DLTAY3 
00295 C44F A? QQ LDA HØ Q0424 CS72 8D SE Q3 STA DELTAY 
00297 C451 85 FC STA DVSOR+1 90425 C575 AD 62 a3 LDA FLAG3 
00298 C453 AD 5A Ø3 LDA DELTAX 90426 C578 SD 63 Q3 STA FLAG 
@@299 C456 85 FB STA DVSOR 00427 CS7B AD 4C oz LDA YMIN 
02300 C458 70 25 CO JSR DIVIDE 00428 CS7E 8D 55 Ø3 STA YBASE 
00301 C455 AD 43 Q£ LDA FLAG 90429 CS81 20 3C C4 JSR ENDFTS 
900302 C45E DØ as BNE NEGSLF ØØ43Ø C584 8D 54 923 STA YBOT 
00303 C440 18 CEC 00451 C587 38 SEC 
00304 C461 AD 55 23 LDA YBASE 00432 C588 AD SF oz LDA XFLT 
ØØIØS C454 65 FD ADC QUOT 00433 C585 ED 4D 23 SBC XMID 
80306 C455 99 Qó BCC SEIF? ØØ434 C58E 8D SF oz STA XDIFF 
Q0307 C458 38 NEGSLP SEC ØØ435 C591 AD 58 oz LDA DLTAX2 
00308 C449 AD 55 03 LDA YBASE 00456 C594 FQ 39 BEO FINI 
90309 C44C ES FD SBC QUOT 900437 C596 8D SA Q3 STA DELTAX 
90510 C46E 42 SKIP? RTS 00438 C599 AD SC oz LDA DLTAY2 
ØB3ILL C46F ; 90439 CS9C 8D SE 03 STA DELTAY 
00312 C46F EN DENE NG NG NE IE IE DE IE IE ICI IE JE IE IE AE TEEN 09448 CS9F AD 51 Ø3 LDA FLAG2 
00313 C46F ; 00441 CSA2 8D 63 Ø3 STA FLAG 
ØØ314 C46F ; FIND COORDINATE DIFFERENCES 00442 CSAS AD 4F Gr LDA YMID 
00315 C46F ; 00443 CSAB ED 55 Ø3 STA YBASE 
Q0316 C46F ; ALL "DELTA X" VALUES POSITIVE, 00444 CSAB 22 3C C4 JSR ENDPTS 
00317 C46F ; SINGLE FRECISION (JUST LOWER BYTE) 90445 CSAE 8D 53 as STA YTOF 
ØØ318 C46F ; 09444 CSBi 20 ØD C4 JSR VLINE 
900319 C46F 38 FINDXY SEC 00447 C554 AD 42 Ø3 LDA XPLT+1 
900320 C470 AD 4D oz LDA XMID 900448 C587 CD 51 oz CMP XMAX+1 
00321 C473 ED 4A Q3 SBC XMIN 00449 CSBA DØ op BNE NEXTX2 
90322 C476 BD 56 Q3 STA DLTAX1 ØØ45Ø CSBC AD 3F Ø3 LDA XFLT 
00323 C479 AD 4E Ø3 LDA XMID+1 00451 CSBF CD 52 oz CMP XMAX 
00324 C47C ED 4B Q3 SBC XMIN*1 900452 CSC2 FQ ØB BEQ FINI 
00325 C47F 8D 57 oz STA DLTAX1+1 00453 C5C4 EE SF Q3 NEXTX2 INC XPLT 
900326 C482 38 SEC 00454 €5C7 Do o3 BNE SKIP4 
00327 C483 AD SQ Ø3 LDA XMAX ØØ455 CSC9 EE 40 Ø3 INC XPLT+1 
20328 C485 ED 4D oz SBC XMID @@456 CSCC 4C 5D CS SKIP4 JMP CONT 
90:29 Cape BD 58 Ø3 STA DLTAX2 90457 CSCF AD 64 Q3 FINI LDA EDGES 
20330 C48C 38 SEC @2458 C5D2 FØ 15 BEQ FINISH 
005331 C48D AD sQ 03 LDA XMAX 00459 C504 2Ø EB C2 JSR OUTLN 
00332 C49Ø ED 4A Q3 SBC XMIN 00460 C5D7 20 9A C2 JSR SWAF23 
00333 C493 8D 59 03 STA DLTAX3 00461 CSDA 29 EB C2 JSR OUTLN 
30334 C496 ; 00462 CSDD 20 85 C2 JSR SWAP12 
90335 C496 ; USE ABS(DELTA Y) VALUES, 00463 CSEØ 20 94 C2 JSR SWAP23 
003368 C496 ; FLAGS INDICATE SLOPE OF LIMIT LINES 00464 CSES 20 86 C2 JSR SWAP12 
00337 C496 ; ; 00465 CSES 20 EB C2 JSR OUTLN 
900338 C496 A? QQ LDA gro 90466 CSE9 Gë FINISH RTS 
920339 C498 BD ¿Q Ø3 STA FLAGI 00457 CSEA . END 
00340 C49B BD 61 Q3 STA FLAG2 
00341 C49E BD ¿2 Ø3 STA FLAG3 
00342 C4Ai 38 SEC ERRORS = 82002 
00343 C442 AD 4F Q@3 LDA YMID 
00344 C4AS ED 4C Q3 SBC YMIN 
90345 C4A8 BØ Go BCS STORE! SYMBOL TABLE 
Q0345 C4AA EE ¿Q Ø3 INC FLAG1 
098347 C4AD AD 4C Q3 LDA YMIN SYMBOL VALUE 
00348 C4BØ ED 4F Ø3 SBC YMID CONT CSSD COUNT 0558 DELTAX Ø3SA DELTAY Q35E 
@2349 C4B3 BD 5B Q3 STORE1 STA DLTAY1 DIVIDE C025 DLTAX1 356 DLTAX2 2358 DLTAX3 9359 
@@35@ Cape 38 SEC DLTAY1 —Ø35B DLTAY2 @35C DLTAY3 35D DONE C43B 
90351 C457 AD 52 Q3 LDA YMAX DRAW C424 DVDND ØØFD DVSOR ØØFB EDGES 9264 
900352 C4BA ED AE Q3 SBC YMID ENDFTS  C43C ERASE1 C33A ERASE2 —C3B7 ERROR ozs 
090353 C4BD BO oo BCS STORE2 FACET C4E1 FCETLP C4FB FINDXY  C46F FINI CSCF 
00354 C4BF EE 61 Ø3 INC FLAG2 FINISH CSE? FLAG Ø363 FLAG 1 2340 FLAG2 Q351 
00355 C4C2 AD 4F Ø3 LDA YMID FLAG3 0362 LINE C2DB LNLF I C32F LNLF2 C3AC 
900356 C4CS ED 52 Q3 SEC YMAX LOOP1 C288 LOOF2 C29C MLFCND X QQAC MLFLER Q@@AD 
00357 C4C8 8D SC oz STORE2 STA DLTAY2 MODE 9367 MULT CQ11 NEGSLP ` C468 NEXTX1 CSS2 
00358 C4CB 38 SEC NEXTX2 CSC4 NGSLP C3D1 NOINC1 C357 NOINC2 CZC2 
00359 C4CC AD 52 03 LDA YMAX NORM C224 NOSCAL 0347 NOSWF1 ` C2C2 NSLOFE (C347 
0360 C4CF ED AC Q3 SBC YMIN ORIGIN  C26F OUTLN C2EB FLOT C143 PROD ØØAE 
@@361 C4D2 BØ Q9 BCS STORE3 QUOT ØØFD RAM 9344 SCALE C26F SCLF C275 
903562 C4D4 EE ¿2 Q3 INC FLAGS SK1 Crs SK2 C34A SK3 C349 SKIF2 C46E 
@@363 C4D7 AD 4C Ø3 LDA YMIN SKIP3 C55A SKIP4 CSCC SKP1 C3BA SKF2 C3D4 
ØØ364 Cape ED 52 Q3 SBC YMAX SKP3 C3E7 SORTED CZ2DA SORTLP C250 SORT X C2AE 
@@365 C4DD 8D 5D az STORES STA DLTAY3 STEPX C382 STEPY C3ØE STORE! —C4B3 STORE2  C4C8 
Q03565 C4EØ ¿Q : RTS STORES C4DD SWAF 12 286 SWAP23 C29A TEST C407 
@@347 C4E1 ; 
QOS68  C4E1 Hk ka bk LL EEE SYMBOL TABLE 
900369 C4E1 ; 
900370 C4E1 3 DRAW A SHADED TRIANGULAR FACET SYMBOL VALUE 
00371 C4E1 ; UNPLOT C146 VLINE C4ØD XDIFF EK XMAX 235 
00372 C4E1 2Ø AE C2 FACET JSR SORTX XMID 034D XMIN Ø34A XPLT Q33F YBASE Ø355 
00373 C4E4 AD 47 Ø3 LDA NOSCAL YBOT Ø354 YMAX Ø352 YMID Q34F YMIN Ø34C 
00374 C4E7 Fe Q3 BEQ YSOK YPLT 9341 YSOK C4EC YTOP 0353 
00375 C4E9 29 6F C2 JSR SCALE 
00376 C4EC 20 ¿F CA YSOK JSR FINDXY END OF ASSEMBLY E AU 
00377 C4EF AD 4A Q3 LDA XMIN 
00378 C4F2 BD 3F Ø3 STA XFLT nd Listing Three 
00379 Cars AD 4B Q3 LDA XMIN*1 Š š 
00380 Care BD 40 Q3 STA XPLT+1 
eos cars Se eene Sec Listing Four 
900382 C4FC AD 3F ez LDA XPLT 
eases ie ER s= m ie? Sted panel pa ; PRIMITIVE SOLID SHAPE DRAWING 
5 ; 

ptt Gg E SS X Gg Ze ere — ; RICHARD L. RYLANDER 11/7/84 

s< D 
Leef See Nr tee aie goes goga ; LOAD ARITHMETIC AND GRAFHIC UTILITIES FIRST 
90389 C510 8D SE Ø3 STA DELTAY a M ; 
00390 C513 AD 68 Ø3 LDA F ^ 20007 00929 Z RARE L NG NG JE DE EH EHH HHA HHH ———T 

3 LAGI 00008 gaga RAM=4Ø36A 
00391 C516 8D 63 Ø3 STA FLAG Baga? eco DRIBIRUSDAEA 
00392 C519? AD 4C Q3 LDA YMIN 
00393 CSiC BD 55 23 STA YBASE eS E anon ; 
00394 CSIF 29 3C Cà 3 90011 ØO MLPCND=#AC ; MULTIPLICAND (S) 
> SR ENDFTS 08012 agg MLFLER=fAD ; MULTIPLIER (S) 
00395 C522 8D 53 Ø3 STA YTOF 28213 Pogg PROD=3AE Me 
@2396 C525 AD 59 oz LDA DLTAX3 8 E;EBDPNCEE S MM 
90397 C528 FO 33 RER CENT 90014 e200 MULT=$CQ11 ; CALL FOR MULTIPLY 
@2398 C524 BD sa 03 STA DELTAX prr Rn ; 
QQ399 CS2D AD 5D Oz iba E TAa 00016 e200 DVDND=#FD ; DIVIDEND (D) 
09400 C530 8D SE oz STA DELTAY . 
(Continued on page 70) 
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ENVOY™ 


Communications Software 


@ Easy to use, menu driven, compact and high speed 
€ Access electronic mail, remote systems and data networks like 


onix 


NOW ONLY $79.95! 


H you think you're missing out on innovative software 
developments because nobody is writing for CP/MTM-80, take 
a look at us. We've adapted UNIXTM features to CP/M like 
never before, and with the kind of professional, quality- 
controlled product that you deserve. That product is none 
other than the critically acclaimed ConlX Operating System. 


ConIX can provide any 48K+ CP/M-80 or compatible system 
with UO Redirection and F ipes (uses ege) or disk). 
perfected User Areas, Command and Overlay Path Searching. 
Auto Screen Paging. 8Mb Print EST, 22 new SysCalls. 
Function Keys. "Virtual" disk system. Årchiver (saves over 
50% disk). extensive command he qa 300-- variables, 1004- 
commands, pull-down menu, and much more! Uses as little as 
1/2K RAM! Runs with CP/M for true data and software 


compatibility. Installs easily without any system mods! 


The ConlX package lists at $165 and has been advertised and 
sold internationally to many enthusiastic customers since 
October 1983. As a special limited offer, we've lowered the 
RS of the complete ConlX system by 50% to -— $79.95! 

on't miss this opportunity to bring your 8-bit micro back into 
the software revolution. Order your copy of ConlX today! 


CompuServe, The Source and Dow Jones News Retrieval 
@ Terminal mode with large data-capture buffer 
€ Error-free transfers of text and binary files 
€ XMODEM (Christensen) and ANSI X3.28 transfer protocols 
€ User-definable Autodial and Autologin menu 
e Utilities menu for file copy, type, print, erase and rename 
e Remote unattended file transfers and utilities 
€ Available for most popular computer systems: IBM PC, PCjr, 
PC compatibles, Sanyo MBC-55X, MSDOS, CP/M-86, 
Concurrent CP/M, CP/M 2.2, CP/M Plus and more 
€ Money-back guarantee if not completely satisfied 


$4995 


ARTISOFT nc 


P.O. Box 41436 
Tucson, AZ 85717 
(602) 327-4305 


Price includes manual, 8" disk, and user support. 5!4" conversions 
available. Contact your local dealer, or buy direct and add shipping: 
$4.50 UPS. $10 Canada, $25 overseas. NY residents add sales tax. 


Computer Helper Industries Inc. 

P.O. Box 680 Parkchester Station, NY 10462 

Tel. (212) 652-1786 (for information/orders) 
"We're helping your computer work better for you!” 


UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 


Circle no. 7 on reader service card. Circle no. 22 on reader service card. 
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— $219, assembled and tested. 


MULLEN COMPUTER PRODUCTS, INC. - 


AVAILABLE: | 

| Priority One Electronics, | 
Š = Se Chatworth, CA k (21 3) 709-51 1 1 

- (UT Jade Computer Products — — — 
TB-4a EXTENDER BOARD ZB-1 ZIF EXTENDER BOARD Hawthorne, CA * (213) 973-7707 


The latest in our TB line, the most This debugger features Zero Inser- 
— widely used add-ons in the indus- tion Force edge connectors for 
— try. Features logic probe, formed- easy board changes and long life. 


E^! Computer Products 
Hayward, CA ° (415) 786-92 : 


lead edge connectors, pulse Expect 2,000 or more insertions Me Ee e 
| catcher switch and reset button. rather than the usual 300 to 400 — 215) 783-2866 or write MCPI, 2260 American Ave., 


with tension type connectors. Hayward, CA 94545. OEM sales available from factory. — — 
$89, assembled and tested. $159, assembled and tested. ere. a 


Circle no. 54 on reader service card. 


Dr. a wing on t he C-64 (Listing Continued, text begins on page 50) 
Listing Four 


92017 0009 DVSOR=#FB 


REM CALCULATE 2*Z FROM X,Y AND RADIUS 
HEMI = 1 
IF XREL^CLIFL THEN GOTO "FIERT: 


00144 C528 
00145  C428 


; DIVISOR (D) 00146 C628 ; ZWX-2*2-XSHD MI os 
020018 8222 QUOT=#FD ; QUOTIENT (D) 00147 C628 FKF XFL.T=XCENT-XRELs: REM LEFT HEMISPHERE 
20919 Boga DIVIDE-4CQ25 ; CALL FOR DIVIDE 09148 C528 ; 'CHCLUF' IF YREL-CLIFU THEN GOTO 'DHETNI 
00020 0099 $ 00149 C528 ; TONE=ZWX+YSHD : 
90021 82000 ARG=#AC 3; ARGUMENT (S) 00150 C628 ; GOSUB 'GETVAL':REM NORMAL IZE SHADE VAL 
02022 0990 SOR=4%AE 3 SQUARE OF ARG (D) 00151! C428 š YFL T=YCENT + YREL 1 
90023 0990 SQUARE-2$CQOO04 ; CALL FOR SQUARE 00152 C528 ; GOSUB 'PLTSHD':REM FLOT OR UNFL OT 
90024 BAA ; @@153 C628 š REH FOINTS WEIGHTED BY SHADE VAL UE 
00025 0000 RADCND=#AC 3 RADICAND (D) 00154 C628 : 'DHEMI' IF YREL>CLIPD THEN GOTO "BERT 
00026 0009 ROOT=3Ø33C ; SQUARE ROOT (S) @@155 C578 ; TONE=ZWX-YSHD 
09927  QooQ SQRT=#CQS4 3 CALL FOR SGRT Ø98156 C578 š GOSUB 'GETVAL ' 
00028 Øg $ 90157 C528 $ YFLT=YCENT- YREL 
090297 0009 RNDM=3CØØØ ; RANDOM NUMBER @0158 C428 ; GOSUE 'PLTSHD' 
00930  oooQ RANDOM=3CØCB ; CALL FOR RANDOM 09159 C528 3 'RHEMI ' IF HEMI=Ø THEN RETURN 
00031 0009 ; NOTE - A CALL TO ‘RANDOM’ LEAVES A RANDOM BYTE KEE: C528 3 HEMI =Ø 
920052 2099 $ IN THE ACCUMULATOR 00161 C428 š IF XREL>CLIFR THEN RETURN 
00033 09009 3 00152 C528 ; 2WX=2xZ+XSHD 
00034 0909 XPLT=4Ø33F 00153 C528 š XFLT=XCENT+XREL 
00035 ogag YPLT=$0341 00154 C428 ; GOSUB 'CHCLUP' 
099036 8200 NORM=3C22 @@165 C528 DH RETURN 
00037 09098 PLTSHD=4C2ØF @@1466 Ce28 ; 
00038 Boag VALUE=40344 ; FINAL NORMALIZED SHADE VALUE 001657 C528 2C 83 Q3 PTFLOT BIT HVFLAG 
009397 2000 HTORRN-$0345 ; SHADE FLAG, 1=HALFTONE 90158 C62B 10 2D BPL NOROT 
22040 voga NOSCAL=34Ø347 ; SCALE FLAG, 1=NO SCALE 90159  C&62D AD éC az LDA XREL 
29941 22020 H : 00170 C620 48 FHA 
09042  QooQ *-RAM 00171 C631 48 PHA 
00943  Q35A XCENT *=*+2 ; CENTER COORD 00172 C632 AD 70 Q3 LDA YREL 
090044 Ø36C XREL *=*+1 : RELATIVE (TO CENTER) 00173 C635 8D éC Q5 STA XREL 
00045  Q36D XSHD ` *-*«2 ; USED IN SHADE CALC 00174 C638 Gë FLA 
09046 Ø36F YCENT  *z**1 ; CENTER COORD 900175 Cé&z9 8D 70 az STA YREL 
90047 03728 YREL *-7**1 ; RELATIVE (TO CENTER) 90175 Cé63C AD &D Q3 LDA XSHD 
@@Q48  Q:71 YSHD *=*+2 y USED IN SHADE CALC 00177 Cesr Ap FHA 
09947  Q373 ZREL *=#+2 ; RELATIVE (TO CENTER) 00178 C640 48 FHA 
DEER KK ZWX *=w+2 3 Z WITH X (+ OR -) 00179 C441 AD 71 Q3 LDA YSHD 
KIT GUNG KEE ; @018@ C644 BD éD Q3 STA XSHD 
090052 0377 RADIUS «-*«2 ; LOCAL RADIUS OF SURFACE 00181 C447 68 FLA 
Q@2@53 2379 TONE *=x+2 ; USED IN SHADE CALC 00182 C648 BD 71 Ø3 STA YSHD 
00954 Ø37B TNTMF *=*+2 ; USED IN SHADE CALC 00183 C64B AD 5E Q3 LDA XSHD+1 
Ru 0370 ; 00184 C64E 48 PHA 
goose Ø37D CLIFL #*=#+1 ; LEFT CLIFFING EQUND 00185 Cé4F 48 FHA 
00057 O37E CLIPR *=*+1 ; RIGHT CLIFFING ROUND @Q18& Cep AD 72 Ø3 LDA YSHD+1 
009058. Ø37F CLIFU  «xsx«*1 ; UP CLIFPING BOUND 00187 C553 8D GE Q3 STA XSHD*1 
Wun 8388 CLIPD  x-*«41 ; DOWN CL TFEF ING BOUND 00188  C656 68 FLA 
22040 381 H Q0189 C657 8D 72 oz STA YSHD+1 
EISEM 0381 HEMI = x +1 ; FLOTTING HEMISFHERE @@19@ CSA 29 45 C7 NOROT JSR GETZ 
00052 0:82 E] 090191 Cé45D A? ØL FTFLT2 LDA ##@1 
29963 0582 b^óFLIT sat å BACKLIT FLAG 00192 Cé&5F 8D 81! Di STA HEMI 
00064 Ø383 HVFLAG x=4+1 3 HORIZONTAL/VERTICAL FLAG Q0193 Cé 38 SEC 
20065 584 TEMP  .1-«*2 ; TEMPORARY STORAGE — , 00194 C663 AD 7D Q3 LDA CLIPL ; CHECK LEFT HEMISPHERE 
BAA 0386 CNTX LEZ EA ; LOOF COUNTER @2195 C&&& CD éC Oz CMP XREL 
00057 0387 CNTY a=x+1 : LOOF COUNTER @Q196 C559 90 7D BCC RHEMI 
006e  Q388 MAX Kk] ; LOOF LIMIT 00197 Cé66B 38 SEC 
00069 Ø387 ; 00198 Cé6C AD 3C Q3 LDA ROOT 
00070 2:89 HILEN — w=x+1 s HALF LENGTH OF CYLINDERS 80199 CAF ED 4D Q5 SBC XSHD 
90071 ØZBA KS *=w+2 ; SQUAKE OF TOROID RADIUS 90200 C472 8D 75 03 STA ZWX 
0909072 Ø3BC R1 *-ktl s TOROID (RING) RADIUS 90201 C475 AD 3D Ø3 LDA ROOT+1 
00073 38D RE =+] H CENTER RADIUS OF TOROID 00202 €478 ED GE oz SBC XSHD+1 
QUO74 Ø38E RO Ret | $ OUIER RADIUS OF TORNID Q0203 C675 BD 76 Q3 STA ZWX+1 
0075 Ø38F RI EZ EA 3 INNER RADIUS OF TOROÍD 00204  C57E 38 SEC 
000756  Q:90 XSOR #=#+2 20205 C67F AD A 03 LDA XCENT 
0077 08392 XMAX Haat] 00205 C682 ED éC 05 SBC XREL 
@0078 08393 s Q0207 C685 BD SF oz STA XFLT 
00077 0393 RØ=HLEN 00208 C688 AD 6B oz LDA XCENT+1 
00989 39% ; 00209  C68B E? QQ SBC grou 
090081 0393 *=ORIGIN 00210 Cé48D BD au Ø3 STA XPLT+1 
00082 CSEA HH HNHV 00211 C4699 : 
090083 CSEA $ 007212 C492 38 CHCLUP SEC 
09984 CSEA š DIVIDE WITH SINGLE PRECISION DIVISOR 00213 C491 AD 7F a3 LDA CLIFU ; CHECK FOR UP CLIPPING 
@@@8S CSEA : (USED OFTEN IN SHAPE ROUTINES? 00214 C694 CD 78 Q5; CMP YREL 
09986  C5SFA å Q0215 C697 98 23 BCC DHEMI 
00087 CSEA Go QQ SDI V LDA HQ 020216 C599 18 CLC 
0088 CSEC 85 FC STA DVSOR+1 00217 C&9A AD 75 oz LDA ZWX 
90089 CSEE 4C 25 CQ JMP DIVIDE 00218 Cé&9D 6D 71 Q3 ADC YSHD 
60890  CSF1 D 00219 Cé&AB 8D 79 03 STA TONE 
@QQ91 CSF1 GNR HHR RR 920220 C6A3 AD 768 Ø3 LDA ZWX^1 
90092 CSF1 ; 00221 C&A 4D 72 03 ADC YSHD+1 
@0093  CSF1 ; CALCULATE SHADE VALUE (0-623) BY 00222 CA? 8D 7A Q3 STA TONE +1 
20094 CSF1 ; MULTIFLYING ‘TONE’ BY 26 THEN 00223 CAC 20 Fi C5 JSR GETVAL 
@0095 C5F1 ; DIVIDE RESULT BY RADIUS OF SURFACE 00224 CAF 18 CLC 
8096 CSF1 ; 00225 CéB@ AD er Q3 LDA YCENT 
00097 CSF1 2C 7A Q3 GETVAL BIT TONE+1 00226 C46B3 &D 70 Ø3 ADC YREL 
90099 CSFé AD 82 Ø3 LDA BAKLIT ; MAKE VALUE D OR ABS(TONE) 00228 Coby 720 ØF c2 JSR PLTSHD 
@21@@ Cara DØ ea BNE NEGATE ; DEPENDING ON BAKLIT FLAG 00229 CABC š 
20101 CSFB 8D 44 oz STA VALUE 900230 CBC 38 DHEMI SEC 
00102 CSFE 69 RTS 00231 C4BD AD 8Ø Ø3 LDA CLIFD ; CHECK FOR DOWN CLIPPING 
00103 CSFF 30 NEGATE SEC 00232 C&CØ CD 70 a3 CMP YREL 
90104 Cé@@ A? ag LDA ##00 20233 CACI 90 23 BCC RHEMI 
00105 C502 ED 79 Ø3 SBC TONE 00234 C&CS 38 SEC 
09106 CoS BD 79 o: STA TONE 00235 C&C6 AD 75 Ø3 LDA ZWX 
09197 C508 AD 79 oz CNTHU LDA TONE 90235 C&C? ED 71 oz SBC YSHD 
00108 Cep S AC STA MLFCND 00237 CACC 8D 79 03 STA TONE 
200109 CAAD A? 1A LDA KIA 00238 CéCF AD 76 03 LDA ZWX+1 
00110 Cé@F 85 AD STA MLFLER 00239 C&D2 ED 72 03 SBC YSHD+1 
90111 Cé11 28 11 CØ JSR MULT 00240 CADS BD 7A Ø3 STA TONE+1 
00112 C614 85 FE STA DVDND+1 90241 CöDB 20 Fi CS JSR GETVAL 
090113 C516 AS AE LDA FROD 00242 Cé&DB 38 SEC 
90114 C618 85 FD STA DVDND Q0243 C&DC AD éF Q3 LDA YCENT 
@@115 C&1A AD 77 93 LDA RADIUS 00244 C&DF ED 70 Ø3 SBC YREL 
@@116 CiD 85 FB STA DVSOR 00245 CéE2 8D 41 Ø3 STA YFLT 
00117 CéiF 20 EA CS JSR SDIV 002464 CéES 28 OF C2 JSR PLTSHD 
@@118 C622 AS FD LDA QUOT 00247 CöEB : 
90119 C&24 BD 44 oz STA VALUE 00248 CE8 AD 81 903 KHEMI LDA HEMI 
00120 C527 eg RTS 090249 CEB FQ 34 BEQ PLDONE 
900121 C628 ; @@25@ CéED CE 81 Q3 DEC HEMI 
00122 C4278 $ XC DDE DE AE AE JE IE CIE tet CCC XXE EXE NG 36 KA 00251 C4FO 38 SEC 
90123 C628 ; 90252 CéFi AD 7E Ø3 LDA CLIFR 3 CHECK FOR RIGHT CLIPPING 
90124 C428 ; FOINT FLOTTING BY QUADRANTS USING 00253 Cé&F4 CD &Cc 905 CMP XREI. 
00125 C528 ; THE FOUR-FOLD SYMMETRY OF SIMFLE OBJECTS 00254 Cé&F7 99 28 BCC FLDONE 
00126 C628 ; 00255 CéF9 18 CLC 
00127 C528 ; DEPENDING ON STATUS OF 'HVFLAG', EXCHANGE 902556 CFA AD 3C Ø3 LDA ROOT 
00128 C628 ; X AND Y COORDINATES TO ROTATE OEJECTS 9Ø DEG 90257 CFD 4D D Ø3 ADC XSHD 
00129 C628 3 SINGLE SHAFE ROUTINE CAN THEN BF USED TO 90258 C700 8D 75 a2 STA 2WX 
90150 Cep ; DRAW 'HORIZONTAL' OR ‘VERTICAL’ VERSIONS 90259 C703 AD 3D 03 LDA ROOT+1 
g0121 C628 ; OF AN OBJECT 00260 C706 5D GE oz ADC XSHD*1 
001.32 C620 ; 9026561 C709 8D 76 a STA ZWX*1 
00133 C428 s THE FOLOWING IS A ‘BASIC SUBROUTINE’ 909252 C7ØC 18 CLC 
00134 C628 ; EQUIVALENT TO EXFLAIN ITS OFERATION @@263 C7ØD AD A Ø3 LDA XCENT 
09135 C628 ; 00254 C710 4D &C ØI ADC XREL 
001358 C428 ; NOTE THAT LABELS ARE USED IN FLACE OF 90265 C713 8D 3F Gi STA XFLT 
90137 C628 ; LINE NUMBERS 00266 C716 AD ëB Ø3 LDA XCENT+1 
00138 C628 ; 90257 C719 469 QQ ADC #500 
00139 Cep ; 'FTFLOT' IF HVFLAG<@ THEN GOIO 'NOROT' 900258 C71B BD aQ oz STA XPLT+1 
@014@ C628 $ (STACK) =XREL: XRELSYRCL: YREL= (STACK) 0026569 C71E 4C 92 Cé JMP CHCLUP 
0141 LAS DH ; à (STACK ) XSHD: XSHD=YSHD: YSHD= (STACK) 00270 C721 2C 83 9: FLDONE BIT HVFLAG 
00142 C520 $ NOROT GOSUB ‘GETZ’ 90271 C724 iQ IE BFL. NORSTR 
00143 Co28 ; 
E 
DH 


(Continued on page 72) 
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MODEL 1OO C COMPILER 


Now you can write efficient programs for your 
TRS-80 mode! 100 with ease. Or, learn the 
essentials of C programming while traveling! 


C/100 - THE "PORTABLE" C COMPILER 
Cassette version $49.00 
Disk/Video interface version $59.00 
Model II version (run on mod Il. then 
download object code to model 100) $79.00 
Model Ill version (as above for Mod III) . $79.00 


Write or call for information on other 
TRS-80 software 


MODELS II, 12, 16 
MODELS Ill, 4 


TRS/C C COMPILER 

Full K&R with source to the 
function library. UNIX 
Dompdtib/e 15. 7x 


ZSPF EDITOR 

SPF, the choice of most 
mainframe programmers, is 
now available for Z80 machines. 
And it's panel driven so you 

can customize it! 


business utility software 
109 minna ste 423 san francisco ca 94105 


(415) 397-2000 


C hon the Model 20 


and 


on CP/M 


available soon 


SPE 


Circle no. 8 on reader service card. 


GRAFMATIC* 
PLOTMATIC™ 
for 
FORTRAN/PASCAL 
PROGRAMMERS 


The GRAFMATIC (screen graph- 
ics) and companion PLOTMATIC 
(pen plotter) libraries of modular sci- 
entific/engineering graphics rou- 
tines let you easily create 2D and 3D 
plots in customized: or default for- 
mats. Pen plot preview with GRAF- 
MATIC. Plot -interactively or in 
deferred mode. Primitives (mode, 
color, cursor, character, pixel, line, 
paint...) plus auto-scaling, auto- 
axis generation, auto-tic mark label- 
ing, function plots, tabular plots, 
error bars, auto-function plots (com- 
plete plot in default format with one 
easy call), auto-tabular plots, log/ 
parametric/contour plots, 3D rota- 
tion/scaling/translation, wire frame 
model (for old time's sake), hidden 
line removal for solid models 
(GRAFMATIC only), cubic and bicu- 
bic spline interpolants, least squares 
fits, bar and pie charts, screen 
dump.... You name it. We have it! 
Best of all, the clearest and most 
complete documentation to be found 
in microcomputerland. User sup- 
port? Of course, call us! We offer a no 
questions asked money-back 
guarantee. 


SCREEN and 
PEN PLOTTER 
Software 
Libraries 
for the 
IBM PC 
Tandy 2000 
TI Professional 


MICROCOMPATIBLES 


301 Prelude Dr. 
Silver Spring, MD 20901 
(301) 593-0683 


GRAFMATIC* $135 
PLOTMATIC*t $135 
BOTH $240 
OMNIPLOT [S] $135 
OMNIPLOT [P]* $135 
BOTH $240 


*Specify Compiler (Mfg. and Ver- 
sion): IBM/MS/IBM Prof. FORTRAN 
TSpecify Plotter: HP/HI/IBM 


Circle no. 84 on reader service card. 


SCIENTIFIC/ENGINEERING PC GRAPHICS TOOLS 


OMNIPLOT [S] 
OMNIPLOT [P] 
NO 
Programming 
Required 


Integrated stand-alone graphics li- 
braries to drive your CRT monitor or 
your pen plotter. Key in data in re- 
sponse to menu prompts or read 
your data from a disk file. Choose 
from an assortment of graphics for- 
mats: tabular, line, bar or pie 
charts. Contour plots. (YES! Just 
part of our integrated OMNIPLOT li- 
brary, not an expensive individual 
item). Create 3-D plots with a choice 
of wire frame or hidden surface 
removal for added realism. Choose 
standard, semi-log or log-log 
scales; gridding; error bars; line col- 
ors and types; marker symbol colors 
and types. Cubic spline interpola- 
tions and least squares fitting op- 
tions. As with our other professional 
packages we offer clear and careful 
documentation filled with examples, 
user support, and a no-questions 
asked money-back guarantee. 

Ask for OMNIPLOT [S] for screen 
graphics and OMNIPLOT [P] for the 
pen plotter software library. 


Circle no. 57 on reader service card. 
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Dr d wing on f h e C-64 (Listing Continued, text begins on page 50) 
Listing Four 


@2272 C726 AD 6E Q3 LDA XSHD+1 ; RESTORE COORDS 90401 C8QD BD ¿C QL STA XREL 

90273 C729 8D 72 03 STA YSHD+1 0920402 C81@ 8D &D Di STA XSHD 

900274 C72C 68 FLA ..| 90403 C813 20 Ø4 CO JSR SOUARE 

90275 C720 8D 5E Q3 STA XSHD+1 00404 C814 38 SEC 

002758 C730 AD 4D oz LDA XSHD 00405 C817 AD 84 Ø3 LDA TEMF 

Q0277 C733 8D 71 Ø3 STA YSHD 90405 CB81A ES AE SBC SOR 

90278 C736 68 FLA 90407 CB81C 85 AC STA RADCND 

90279 C737 8D ep Q3 STA XSHD 00408 CB1E AD 85 Di LDA TEMF+1 

00289 C73A AD &C Ø3 LDA XREL 00409 C821 ES AF SBC SOR+1 

90281 C73D op 70 oz STA YREL 00410 C823 85 AD STA RARCND+1 

Q0282 C74Ø 68 FLA 90411 C825 20 54 CO JSR SORT 

90283 C741 8D éC Ø3 STA XREL 00412 C828 AD 3C Q3 LDA ROOT 

90284 C744 ¿Q NORSTR RTS Q0413 C82B BD 88 oz STA MAX 

090285 C745 3 00414 C82E AD 87 Q3 LOOPY LDA CNTY 

90285 C745 J JEE JE BE JE IE E JE PE IE E JE IE AE BE IE PEJE JE FE IE IRE HE JE IE EE HEE EEE 90415 C831 BD 70 03 STA YREL 

90287 C745 ; 00416 C834 BD 71 Q3 STA YSHD 

90288 C745 ; CALCULATE Z FROM LOCAL X,Y BY 90417 C837 A? QQ LDA #0 

00289 C745 3 PYTHAGOREAN SUM 00418 C839 8D 83 Q3 STA HVFLAG 

90290 C745 ; 90419 C83C 20 28 Có JSR PTFLOT 

90291 C745 AD 77 Q5 GETZ LDA RADIUS 02420 C83F A? BØ LDA 4480 

90292 C748 85 AC STA ARG 00421 C841 BD 83 Ø3 STA HVFLAG 

€0293 C74A 20 04 CO JSR SQUARE 00422 C844 20 28 Có JSR FTFLOT 

90294 C74D 8D 7C 03 STA TNTMP+1 00423 C847 AD 87 Ø3 LDA CNTY 

90295 C75Ø AS AE LDA SOR 00424 C84A CD 88 Q3 CMF MAX 

09029656 C752 BD 7B Q3 STA TNTMP 00425 C84D FO 96 BEQ DONEY 

920297 C755 AD éD Q3 LDA XSHD 00426 C84F EE 87 oz INC CNTY 

90298 C758 85 AC STA ARG 00427 C85? 4C 2E C8 JMP LOOPY 

Q0299 C754 20 04 CO JSR SQUARE 020428 C855 AD 86 Ø3 DONEY LDA CNTX 

Qozod C75D 38 SEC 90429 C858 CD 92 Ø3 CMP XMAX 

ØØ3Ø! C75E AD 7B Q3 LDA TNTMF 00430 C85B FØ Dé BEQ DONE 

00302 C761 ES AE SBC SOR 90431 C85D EE 85 Ø3 INC CNTX 

00303 C763 8D 7B Qš STA TNTMP 900432 C860 4C ØS C8 JMF LOOFX 

ØØ3Ø4 C755 AD 7C Ø3 LDA TNTMP+1 00433 C863 ep DONE RTS 

00305 C769 ES AF SBC SOR+1 00434 C854 3 

00306 C76B 8D 7C Ø3 STA TNTMP+1 90435 C844 eee See Se XO AG ICI GN eee eee NNN NENNE 

90307 C76E AD 71 Q3 LDA YSHD 904356 C864 ; 

009308 C771 85 AC STA ARG 00437 C854 ; DRAW SHADED CYLINDERS 

90309 C773 2 Q4 CQ JSR SQUARE 00438 C854 ; 

ØØIIØ C776 38 SEC 90459 C854 ; “BASIC SUBROUTINE’ EQUIVALENT 

90311 C777 AD 7B 03 LDA TNTMP 00449 C864 3 

090312 C77A ES AE SBC SOR 00441 C864 j 'CYLNDR' XSHD=Ø 

900313 C77C 85 AC STA RADCND 00442 C864 ; FOR YREL*RADIUS TO Ø 

00314 C77E AD 7C Q3 LDA TNTMF+1 Q0443 C864 E YSHD=YREL 

90315 C781 ES AF SBC SOR+1 90444 C844 ; FOR XRELSHLEN TO Ø 

00:16 C783 85 AD STA RADCND+1 00445 C844 ; GOSUB 'PTPLOT' 

90317 C785 30 QA BMI ZEROOT 00446 C864 ; NEXT XREL 

00318 C787 20 64 CQ JSR SORT 00447 C864 ; NEXT YREL 

900319 C78A ØE 3C oz ASL ROOT 22448 C854 ; RETURN 

90320 C78D 2E 3D Ø3 ROL ROOT+1 004497 C864 ; 

90321 C790 ¿Q RTS 929450 C844 A? QQ CYLNDR LDA #0 

90322 C791 og QQ ZEROOT LDA H$ØØ 90451 C866 BD ëD Q3 STA XSHD 

00323 C793 BD 3C az STA ROOT 9029452 C849 BD GE 23 STA XSHD+1 

90324 C796 BD 3D Q3 STA ROOT+1 @0453 C8&C BD 72 Di STA YSHD+1 

00325 C799 60 RTS 90454 C86F AD 77 Q3 LDA RADIUS 

00325  C79A ; @@455 C872 BD 72 Q3 STA YREL 

00327 C79A F DE IE FE FE FE GE EE FE OE EXE AE BL IE JE AE EE HEE FE E AE IO OX ØØ456 C875 AD 89 Q3 CYLOOP LDA HLEN 

090328 C79A ; 00457 C878 8D ¿C Ø3 STA XREL 

Q0329 C79A ; SET UP PARAMETERS FOR TOROIDS 00458 C87B AD 70 Ø3 LDA YREL 

@8332 C79A ; 90459 C87E BD 71 Ø3 STA YSHD 

00331 C79A s RT=(RO-RI)/2 RS=RT*#RT RC=RT+RI QQ46Q C881 20 28 Có CXLOOP JSR PTFLOT 

00332 C794 ; 904651 C884 CE ¿C Q3 DEC XREL 

00333 C79A AD BE 23 TFARM LDA RO 090452 C887 10 F8 BFL CXLOOP 

90334 C79D 38 SEC 90453 C8897 CE 70 Ø3 DEC YREL 

ØØ335 C79E ED BF oz SEC RI 900464 C88C 10 E7 BFL CYLOOP 

80336 C7A1 4A LSR A 00465 C88E ¿Q RTS 

005337 C762 BD BC oz STA RT 00456  CB88F ; 

00338 C7AS BD 77 Q3 STA RADIUS @@467  C88F g ANNEN JE JE DE DE NED E NEA AG IE AE IE FE AE FETE al NG JE JEFE AE FE E Ska EE 

00339 C7A8 18 CLC 0090468  CB88F ; 

90340  C7A9 6D BF Ø3 ADC RI 00469  C88F ; DRAW EDGE-VIEW TOROIDS 

090341 C7AC 8D 8D oz STA RC 920470  C88F ; 

00342 C7AF AD 8C Q3 LDA RT 00471 C88F ; “BASIC SUBROUTINE’ EQUIVALENT 

00:43 C7B2 Bs AC STA ARG 020472  C88F ; 

-89344  C7B4 28 Ø4 CO JSR SQUARE 90473 C88F ; 'EDGTOR' GOSUB 'TPARM':REM SET UP RADII 

@2345  C7B7 AS AE LDA SOR 00474  C88F ; FOR CNTX=Ø TO RT 

00344 C7B9 BD BA Q3 STA RS 900475  CB8F ; XREL=CNTX: XSHD-CNT X 

00347 C7FC AS AF LDA SOR+1 92475  C88F ; ROZSQR(RT*RT-CNTX*CNTX) 

90348 C7BE BD BB Q3 STA RS*1 900477  CB8F ; FOR CNTY=Ø TO RØ+RC 

00349 C7C1 A? QQ LDA HØ 020478  C88F aech YREL=CNTY 

90350 C7C3 8D 86 Q3 STA CNTX 90479  C88F i YSHD=(RØ*CNTY) / (KO* RC) 

090351 C7C6 40 RTS 90480 C88F ; GOSUB 'FTPLOT' 

90552  C7C7 ; 00481  CBBF ; NEXT CNTY 

@@353 C7C7 eee eee AE E FE ee eee ee ee eee ee JE E DE AR eee eee eee GERE 020482  CB88F ; NEXT CNTX 

00354  C7C7 ; 02483 C88F ; RETURN 

ØØ355 C7C7 ; DRAW A SHADED SPHERE 00484 C88F ; 

@@35& C7C7 ; 20485 C88F 20 9A C7 EDGTOR JSR TFARM 

00357  C7C7 ; 'BASIC SUBROUTINE' EQUIVALENT 00486 C892 A? QQ LDA #400 

00358 C7C7 P 00487 C894 BD ¿E Q3 STA XSHD+1 

920359  C7C7 ; ‘SPHERE’ FOR CNTX=Ø TO RADIUS/SQR (2) @@488 C897 BD 72 Q3; STA YSHD*1 

903560 C7C7 ; XREL=CNTX: XSHD=CNTX 00489 CB9A AD 86 Ø3 LOOPX4 LDA CNTX 

Q0361  C7C7 ; FOR CNTYsCNTX TO SQR (RAD*RAD-CNTX*CNTX) 00490 C89D 8D éC Ø3 STA XREL 

08362  C7C7 3 YREL=CNTY: YSHD=CNTY ØØ491 CEAØ BD éD Ø3 STA XSHD 

00363 C7C7 ; HVFLAG=Ø 00492 C803 85 AC STA ARG 

90364 C7C7 ; GOSUB ‘PTPLOT’ 00493 CBAS 20 04 CO JSR SQUARE 

90365 C7C7 ; REM EXCHANGE X % Y TO USE 8-FOLD SYM 20494  C8A8 38 SEC 

@2366  C7C7 ; HVFLAG=-128 90495 C&A? AD BA o: LDA RS 

00367 C7C7 ; 00494 CBAC ES AE SBC SOR 

903588 C7C7 ; GOSUB ‘PTFLOT’ ØØ497 CBAE 85 AC STA RADCND 

@2369  C7C7 ; NEXT CNTY 00498  CEBØ AD 8B az LDA RS*1 

90370  C7C7 ; NEXT CNTX 90499 C863 ES AF SBC SOR+1 

00371 C7C7 ; RETURN 00500 C8BS 85 AD STA RADCND+1 

90372  C7C7 ; 00501 C8B7 22 64 CQ JSR SORT 

00373 C7C7 ; 00502 CBBA AD SC Q3 LDA ROOT 

00374 C7C7 AD 77 Q3 SFHERE LDA RADIUS 00503 C8BD 8D 89 oz STA RØ 

90375 C7CA 85 AC STA ARG 00504 cece is cuc 

00376 C7CC 28 04 CQ JSR SQUARE 90505 C8C1 4D 8D Q3 ADC RC 

00:77 C7CF Dë AE ASL SOR @2506 C8C4 8D 88 Q3 STA MAX 

00378 C7Di 26 AF |J ROL SOR+1 š 90507 C8C7 A? QQ LDA groe 

00379 C7D3 AS AE LDA SOR 090508 CSC? 8D 87 Q3 STA CNTY 

00380 C7D5 Bs AC STA RADCND 090509 CSCC AD 87 Ø3 LOOPY4 LDA CNTY 

900381 C7D7 AS AF LDA SOR+1 @@51@ C8CF 8D 70 Ø3 STA YREL 

@@382 C7D9 B85 AD STA RADCND+1 ; 90511 C8D2 85 AD STA MLFLER 

90383 C7DB 28 64 CQ JSR SORT 90512 C8D4 AD 89 Ø3 LDA RO 

00384  C7DE 4E 3D Q3 LSR ROOT+1 90513 C8D7 85 AC STA MLFCND 

@@38S C7E1i &E 3C Q3 ROR ROOT 928514 C8D9 20 11 CO JSR MULT 

00385 C7E4 AD 3C Ø3 LDA ROOT @@5i5 C8DC 85 FE STA DVDND+1 

09387 C7E7 8D 92 oz STA XMAX 90516 CODE AS AE LDA PROD 

ØØ388 C7EA A? QQ LDA #202 00517 CS8E@ 85 FD STA DVDND 

@@389 C7EC 8D 84 Qš STA CNTX 90518 CSE2 AD 88 Ø3 LDA MAX 

00390 C7EF BD 5E QZ STA XSHD+1 00519 C8ES 85 FB STA DVSOR 

90391 C7F2 BD 72 Q3 STA YSHD+1 00520 C8E7 20 EA CS JSR SDIV 

90392 C7FS AD 77 Ø3 LDA RADIUS 90521 C8EA AS FD LDA QUOT 

00393 C7F8 85 AC STA ARG 90522 C8EC BD 71 Q3 STA YSHD 

003974 C7FA 20 Q4 CQ JSR SQUARE 00523 CBEF 28 28 Có JSR PTFLOT 

00395 C7FD 8D 85 Ø3 STA TEMF+1 90524 C8F2 AD 87 Q3 LDA CNTY 

00596 CBQQ AS AE LDA SØR 90525 CB8F5 CD 88 or CMP MAX 

900397 C802 8D 84 Q3 STA TEMP 905256 C8F8 FQ Ge BEQ DONE4 

00398 C805 AD 86 23 LOOFX LDA CNTX 00527 C8FA EE 87 oz INC CNTY 

00399 C808 8D 87 oz STA CNTY 

(0400 C8ØB 85 AC STA ARG (Continued on page 74) 
, 
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EVER WISH: UNT 31900 
NAD Aa PLOTTERT IRT 


N 


SS 


eue aza eo ANOS COMES SN ` SSS SSR MANAUS AI SOS SSRN 


A PLOTTER EMULATION PROGRAM 
THAT CREATES GRAPHICS ON Y0uR— 
DOT MATRIX PRINTER. FEATURES: 


£ POWERFUL HP-GL*" SYNTAX FOUND 
ON HEWLETT-PACKARD PLOTTERS. 

X FAST! CREATES & PRINTS A TYPICAL 
GRAPH IN LESS THAN 4 MINUTES. 

* IMAGES STORED IN MINIMUM SPACE 
ON DISK, AND MAY BE OVERLAID. 

x LABELS ANY SIZE, cw, or 
MOITO3AIG. 

* SCALING, LINETYPES, WINDOWS, 
TICKS, AND SYMBOL MODE. 

X PLOT SIZES 11"x14" TO 4"x48"! 

* INCLUDES MANUAL AND USEFUL 
EXAMPLE PROGRAMS. 

x REQUIRES 54k CP/M 2.2 AND AN 


OKIDATA, EPSON, GEMINI, OR 
PROWRITER PRINTER. 
$49.9S5ppp. OH RES ADD 5% TAX 


CU SEEL LSK FORE | PRL RCE PRGEL Ce 


ORDINATE SOLUTIONS | 


P.0. BOX 308, OBERLIN, OH 44074 


MALTE CONCERNING OTER FAZIL ENR G, OS fs. P: 


Circle no. 59 on reader service card. 


30027 
5" Floppy/Winchester 


10 Cards $565* ards 


Jepp FROM 
Ok: MAIN/FRAMES & DISC ENCLOSURES $4 00 


LASER 3000 DISC/COVERS (not shown) 


SA Bia GE? 2 ea. 5" WAS $199* =- IEG Å < a A N | J 


RESEARCH CORPORATION 
8620 Roosevelt Ave./Visalia, CA 93294 


(Disk drives not included) 


5" Floppy/Winchester 
4 Cards $387* 


3307 
8" e Winchester 


*1 piece; prices lower in quantity. 


We specialize in high tech advertising, product 
packaging design, technical and whimsical 
illustration, marketing brochures, software & 
hardware manuals, logos, fliers, posters. 


Contact us now and let us show you how we can 
improve your graphic communication. 


In the heart of Silicon Valley 


M’ GUINNESS DESIGN 
(415) 967-3811 
1122 Golden Way, Los Altos, CA 04002 - 


Circle no. 24 on reader service card. 


“Little Board” 


MAIN/FRAMES 
6 Models from *4 25" 


3310 


4 50.. (1 piece”) 
MODEL 2800 
Includes power supply & fan 


(Disk Drives and Little Board not included) 
AMPRO & Little Board are TM AMPRO computers. 


INTEGRAND 


RESEARCH CORPORATION 
8620 Roosevelt Ave./Visalia, CA 93294 
209/651-4203 


209/651-1203 


Ë 


Circle no. 15 on reader service card. 


Dr. a wing on th e C -64 (Listing Continued, text begins on page 50) 
Listing Four | 


00528 C8FD 4C CC C8 JMF LOOPY4 00657 C9F8 AD 89 Ø3 LDA RØ 
00529 CIØØ AD 84 Ø3 DONE4 LDA CNTX @@658 C9FB 685 FB STA DVSOR 
90530 C983 CD BC a CMP RT 096597 C9FD 20 EA CS JSR SDIV 
20531 C906 FØ Qé BEQ DONEHT 00560 CABO 38 SEC 
00532 C908 EE Bá 03 INC CNTX 006651 CAQ@1 AD 87 Q3 LDA CNTY 
00533 C?ØB 4C 9A C8 JMP LOOFX4 900662 Copa ES FD SBC QUOT 
@@534 C9BE ¿Q DONEHT RTS @@663 CAA BD 71 Q3 STA YSHD 
20535 C9OF ; 00654 CA@9 A? QQ LDA #£00 
090536 CIØF g PEIE GE EE IE JE JE IE a AE JE AE E IE IE IE EE RE JE IE AE E IE JE FE FE IX CIO IE bi 90565 CAOB 8D 83 Q3 STA HVFLAG 
90537 C9OQF ; 00556 CAGE ES FE SBC QUOT+1 
00538 CIØF ; DRAW A SHADED, TOP-VIEW TOROID 900567 CAIØ 8D 72 Ø3 STA YSHD*1 
00539 COF ; 00668 CA13 20 28 Có JSR PTPLOT 
20540 CIØF ; "BASIC SUBROUTINE' EQUIVALENT 90569 CAI& A? 80 LDA «580 
20541 C9OF ; 900570 CAIS 8D 83 Ø3 STA HVFLAG 
00542 COF ; 'TOROID' GOSUB 'TPARM’ 906571 CAIB 20 28 C4 JSR PTPLOT 
Q0543 C9ØF ; FOR CNTX=Ø TO RO/SOR(2) 20672 CALE AD 87 Q3 LDA CNTY 
90544 C9QF ; REM 8-FOLD SYMMETRY USED 00673 CA21 CD 88 93 CMP MAX 
22545 C9QF ; XREL=CNTX 00674 CA24 FØ Qó BEQ DDNY1 
09548  C9QF ; HAX=SQR(RO*RO-CNTX*CNTX) 006575 CA26 EE 87 Ø3 INC CNTY 
02547 C%QF ; IF CNTX>RI THEN GOTO 'GRTR' 005756 CA29 4C 9A C9 JMP LLPY1 
00548 CIØF ; CNTY=SQR (RI *RI-CNTY+*CNTY) 00677 CA2C AD 86 03 DDNYi LDA CNTX 
Q0549 Cant ; GOTO 'LLPY1* 00578 CA2F CD 92 Ø3 CMP XMAX 
@2552 cooF 3 'GRTR' | CNTYsCNTX 00579 CA32 FO Qé BEQ DUNTOR 
@@551 Camp 3; 'LLPY1' YREL=CNTY @@68@ CA34 EE 84 03 INC CNTX 
09552 C9OF ; RØ=SQR (CCNTY*CNTY*CNTX«CNTX) 00681 CA37 AC 35 C9 JMP LLPX1 
005533 C9ØF ; XSHD=CNTX- (CNTX4RC) /RØ 006582 CASA 60 DUNTOR RTS 
20554 CIF ; YSHD=CNTY- (CNTY*RC) /RØ 00683 CASB ; 
2055S Co9oF ; HVFLAG=Ø: GOSUB 'PTPLOT' 095684 CAZB eee eee eee ee eee Pe eee MG NG NG NG eee eee eee sf 
@2556 CIØF ; HVFLAG=-128: GOSUB 'PTFLOT' 020685 CA3B : 
90557 C9ØF ; IF CNTY=MAX THEN GOTO 'DDNY1*' d Ce y ORAM "INSIDE VIEW".-TORDIDS 
= + H 
Sie Ge 4 T pA ee core ; ‘BASIC SUBROUTINE’ EQUIVALENT 
Sak . Ø 3 ; 
Sree pained e DANTE pr RER cab 09590 CA3B ; ‘SPOOL’ GOSUB 'TFARM' 
09552 C9ØF j 00691  CA3B ; FOR CNTX=Ø TO RT 
00563 C90F 20 9A C7  TOROID JSR TPARM 00592 CASB ; XRELSCNTX: XSHD=CNTX 
29584 C912 AD BE Ø3 LDA RO ØØ693 CA3B DH MAX=RC-SOR (RS-CNTX*CNTX) 
a563 C915 85 AC STA ARG 906594 CA3B š FOR CNTY=@ TO MAX 
Q0566 C917 20 oa CO JSR SQUARE 020695  CA3B ; YREL=CNTY | 
Dose? C91A Q5 AE ASL SQR QO595 CA3B $ YSHD= (RC*CNTY /MAX) -CNTY 
90568 C91C 26 AF ROL SQR+1 00597 CASB ; GOSUB 'PTPLOT' 
@@569 C91E AS AE LDA SOR 00598 CA3B 5 NEXT CNTY 
090570 C920 85 AC STA RADCND 00599 CA3B : NEXT CNTX 
00571 C922 AS AF LDA SOR+1 00700 CASB ; RETURN 
00572 C924 85 AD STA RADCND+1 00701  CA3B ; 
@@573 C926 28 64 CO JSR SORT 00702 CAZB 28 9A C7 SPOOL JSR TPARM 
Q0574 C929 4E 3D Q3 LSR ROOT+1 00703 CASE AD 86 Q3 LLPX2 LDA CNTX 
90575 C92C GE 3C Q3 ROR ROOT 00704 CA41 BD 6C 03 STA XREL 
20574 C92F AD 3C Q3 LDA ROOT 00705 CA44 BS AC STA ARG 
90577 C932 BD 92 03 STA XMAX 90706 CA46 38 SEC 
20578 C935 AD 86 Oz LLPX1 LDA CNTX 00707 CA47 A? QQ LDA «i00 
@@579 C938 ep ¿C Q$ STA XREL 90708 CA49 ED 86 Ø3 SBC CNTX 
@2580@ C93B 85 AC STA ARG 0920709 CA4C 8D GD oz STA XSHD 
@@581 C93D 20 oa CO JSR SQUARE 90710 CA4F A? ou LDA #422 
900582 C940 BD 91 Ø3 STA XSOR+1 90711 CAS1 EF QQ SBC #422 
@@583 C943 AS AE LDA SOR 00712 CAS3 BD GE oi STA XSHD+1 
90584 C945 BD op oz STA XSOR 00713 CAS& 20 04 CQ JSR SQUARE 
@@585 C948 AD BE Q3 LDA RO 90714 CA5? 38 SEC 
00585 C94B 85 AC STA ARG 20715 CASA AD BA oz LDA RS 
02587 C94D 20 04 CQ JSR SQUARE 00716 CASD ES AE SBC SOR 
eeses C950 368 SEC 00717 CASF 85 AC STA RADCND 
@@589 C951 AS AE LDA SOR 00718 CAbi AD 8B oi LDA RS+1 
00590 C953 ED 9Ø Q3 SBC XSOR 00719 CA64 ES AF SBC SOR*1 
00591 C956 85 AC STA RADCND 00720 CA&6 85 AD STA RADCND+1 
00592 C958 AS AF LDA SOR+1 900721 CAB 20 64 CO JSR SORT 
90593 CISA ED 91 Ø3 SBC XSOR+1 00722 CASB 38 SEC 
09594 C95D 85 AD STA RADCND+1 00723 CAAC AD 8D Q3 LDA RC 
@2595 Cast 722 64 CQ JSR SORT 00724 CASF ED 3C Q@š SBC ROOT 
@0596 C962 AD 3C Q5 LDA ROOT Q0725 CA72 8D 88 oz STA MAX 
00597 C965 BD 88 Q3; STA MAX 007264 CA75 A? QQ LDA +FØ0 
00598 C958 38 SEC 900727 CA77 8D 87 Q3 STA CNTY 
90599 C959 AD BF Ø3 LDA RI 00728 CA7A AD 87 Q3 LLPY2 LDA CNTY 
ØØSØG C96C ED 86 Q3 SBC CNTX 00729 CA7D 8D 70 oz STA YREL 
@2601 C9&5F 92 23 BCC GRTR 900730 CABØ 85 AD STA MLFLER 
90602 C971 AD BF Q3 LDA RI 00731 CAS2 AD 8D Ø3 LDA RC 
00603 C974 85 AC STA ARG Q0732 CABS 85 AC STA MLFCND 
(0504 C976 20 04 CQ JSR SQUARE 900733 CAB7 20 11 CQ JSR MULT 
20603 C979 38 SEC 00734 CABA 85 FE STA DVDND+1 
00606 C97A AS AE LDA SGR 00735 CASC AS AE LDA PROD 
092607 C97C ED op oz SBC XSOR 00734 CASE 85 FD STA DVDND 
Q0608 C97F 85 AC STA RADCND 09737 CA90@ AD 88 oz LDA MAX 
Qa509 C981 AS AF LDA SOR+1 00738 CA93 85 FE STA DVSOR 
(20610 C983 ED 91 Q3 SBC XSOR+1 900739 CA95 20 EA CS JSR SDIV 
90511 C986 85 AD STA RADCND+1 00740 CAPB AS FD LDA QUOT 
90512 C988 290 54 CQ JSR SORT 900741 CASA 38 SEC 
90513 C9BB AD ZC oz LDA ROOT 00742 CA9B ED 87 Q3; SBC CNTY 
00613 C98E BD 87 Q3 STA CNTY 00743 CASE 8D 71 oi STA YSHD 
020615 C991 4C 94 Ca JMF LLPY1 00744 CAAL AS FE LDA QUOT+1 
9056165 C994 AD 86 Ø3 GRTR LDA CNTX 00745 CAAZ E? QQ SBC #00 
ment & CT77 Bb 07 03 STA CNTY 00746 CAAS BD 72 03 STA YSHD+1 
20618 C994 AD 87 Q3; LLPY1 LDA CNTY 900747 Coop CQ 28 Cé JSR PIFLOT 
@2619 C99D 8D 72 Q3 STA YREL 90748 Coon AD 87 Ø3 LDA CNTY 
00520 C9AQ 85 AC STA ARG 00749 CAAE CD 88 oz CMP MAX 
920621 C942 20 94 CQ JSR SQUARE 00750 CABI FQ Qé BEG DDNY2 
90522 CIAS 18 CLC 00751 CABS EE 87 Ø3 INC CNTY 
@@423 C7A6 AS AE LDA SER 028752 CAB& 4C 7A CA JMP LLFY2 
90624 C908 4D 90 Q3 ADC XSOR 00753 CABS AD 84 Q3 DDNY2 LDA CNTX 
@@625 CAB 85 AC STA RADCND 00754 CASC CD 8C Q3 CMP RT 
00626 CIAD AS AF LDA SOR+1 90755 CABF FØ Qé BEQ DUNHSP 
060627 CIAF 6D 91 Ø3 ADC XSOR*1 90756 CAC1 EE 85 Ø3 INC CNTX 
00528 C9B2 85 AD STA RADCND+1 00757 CAC4 4C 3E CA IMP LLeX2 
900529 C9B4 722 64 CQ JSR SORT 00758 CaC7 ¿Q DUNHSP RTS ifr 
904530 C9B7 AD 3C oz LDA ROOT 00759 CACB . END 
90531 C9BA BD 89 Q3 STA RQ 
020632 C9BD 85 FB STA DVSOR ERRORS = 90000 
@@633 C9BF AD 86 Q3 LDA CNTX 
Ø9434 C%C2 85 AD STA MLFLER SYMBOL TABLE 
@2635 C9C4 AD 8D oz LDA RC 
@@636 C9C7 685 AC STA MLFCND SYMBOL VALUE 
82537 C9C9 20 11 CO JSR MULT ARG ØØAC BAKLIT 0382 CHCLUP ` C699 CLIPD 9380 
00528 C9CC 85 FE STA DVDND+1 CLIPL Q37D CLIPR Ø37E CLIFU Ø37F CNTNU WT 
004539 C9CE AS AE LDA PROD 
22642 C9D® 85 FD STA DVDND SYMBOL. TABLE 
> ke) 
coe E n = me e 
00543 C9D& AD Bé Q3 Ud br CNTX 03854 CNTY 9387 CXLOOP C881 CYLNDR C844 
naa. bens LER FD orb DT CYLOOP C875 DDNY 1 CA2C DDNY2 CAB? DHEMI C&BC 
basa COUR. po LO aS D NUND DIVIDE C225 DONE C853 DONE 4 Coop DONEHT C9QE 
Qin Lh CODE Aq på VoM dA DONEY cess DUNHSP CAC7 DUNTOR CAZA DVDND BFD 
60447 Coen ES FE Gee Hr å DVSOR ØØFB EDGTOR  C88F GETVAL CSF1 GETZ C745 
GRTR C994 HEMI 9:81 HLEN 9389 HTORRN ` Ø346& 
02648 C9E2 8D ëE Q3 STA XSHD+1 HVFLAG Oš 3 
(9549. DIES 4D B7 dz ns EINE 83 LLFX1 C935 LLPX2 CASE LLPY1 C994 
@2465@ C9EB es AD Sta CLER LLPY2 CA7A LOOPX caos LOOPX4  CB9A LOOPY C82E 
one Chen AM nui åa pa ge LOOPY4  C8CC MAX 29:88 MLPCND avac MLPLER Q@@AD 
Gases CD OR ar £ya sence MULT Cail NEGATE CSFF NORM C224 NOROT Cé5A 
@@653 C9EF 20 11 CO JSR MULT isti 
@2654 C9F2 85 FE STA DVDND+1 End Listing Four 
60655 C9F4 AS AE LDA PROD 
Fe saa AED aisles tec (Listing Five begins on page 76) 
, 
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BIG DISCOUNTS FROM 


JOHN D. OWENS ASSOCIATES 


MACROTECH MI-286: 80286/Z-80H DUAL PROCESSOR S-100 CPU 
BOARD: $1,116 
MACROTECH MEMORY MSR: 120NS, high-speed dynamic RAM with 
realistic pricing: 
Works with CompuPro 8085/8088; M'T-286 and others: 
256K: $556 512K: $876 
MACROTECH STATIC RAM: Substitute for RAM 22 and RAM 23. 
256K S'TATIC: $960 512K STATIC: $1,800 


EMERALD SYSTEMS HARD DISK SUBSYSTEMS and TAPE BACKUP 


High capacity! Up to 280 MB! Emerald has overcome the 32MB DOS 
limitation! Allows multiple volumes per physical drive. Back up and restore 
utilities. Ideal for LAN applications. 


HOUSTON INSTRUMENTS: Plotters: DMP 41 OR 42: $2,397; DMP 29: 


$1,838 
DIGITIZERS: D'T11 $694; DT114 $750; 
New! 14 pen DMP 51 and 52: $4,796 


DT11AA $714 


ILLUMINATED TECHNOLOGY S-100 COLOR GRAPHICS: $1,116 
NEC APC III: 80186 MS-DOS system w/spectacular graphics: 20% off list 


SEMIDISK 2MB DISK EMULATOR FOR IBM PC and EPSON QX 10: 


$2,050 


BIG DISCOUNTS on LOMAS, COMPUPRO, IMS, 
INTERCONTINENTAL, DIGITAL GRAPHICS SYSTEMS, ADVANCED 
DIGITAL, ACKERMAN, BYAD and many others. 

Prices & availability subject to change without notice. 


Write or call for product literature and inventory sale list. 


WE EXPORT: OVERSEAS CALLERS: TWX 710 588 2844 
(OWENSASSOC NYK) 


DOMESTIC AND OVERSEAS ORDERS TAKEN BY PHONE, 
LETTER, TELEX OR EASY LINK. 
We accept VISA and Mastercard. Shipping $5 per board in continental USA. 


JOHN D. OWENS ASSOCIATES 
12 SCHUBERT STREET STATEN ISLAND, NEW YORK 10305 
(718) 448 6283 (718) 448 6298 (718) 448 2913 
EASY LINK MAILBOX ADDRESS: 65840768 


Introducing the 


LATTICE 


LATTICE UNVEILS 
FOUR PRODUCTS 


Lattice has announced the 
availability of four new software 
produets for MS-DOS environ- 
ments: 

C-SPRITE" is a software tool that 
simplifies debugging of programs 
written in Lattice C or assembly 
language. Cost: $175 per copy. 

LMK™ is an Automated Product 
Generation Utility (UNIX 
"MAKE") that enhances produc- 
tivity and relieves the tedium of 
rebuilding complex software sys- 
tems or documents. Cost: $195 
per copy. 

The TEXT MANAGEMENT 
UTILITY PACKAGE" includes util- 
ities to search a set of files for sim- 
ple or complicated patterns, to see 
the exact minimal differences 
between two text files, and to 
modify one or more text 
files automatically. Cost: $120 
per copy. 

CVUE" is a full screen text edi- 
tor that supports all normal 
screen editor functions and in- 
cludes a configuration program to 
define tabstop positions, horizon- 
tal scrolling and edit commands. 
Cost: $100 per copy. 

For complete information on 
these new products, contact 
Lattice. 


WORKS 


LATTICE C NAMED 
'BEST OF 1984" 


The Lattice C compiler has been 
rated 'Best of 1984' by PC Maga- 
zine. According to columnist 
Peter Norton, "The Lattice C com- 
piler is quite good... and in my 
opinion noticeably better than 
any of its competitors. Lattice C 
generates code that is quite com- 
pact and fast running; the closest 
competitor in my tests generated 
code that was about 10 to 15 per- 
cent bulkier.” 


ASK ABOUT OUR "TRADE 
UP TO LATTICE C POLICY" 


After purchase, return registration 
cards for free subscription to the 
"Lattice Works" newsletter and im- 
portant information about the Lattice 
Users Group. 


Lattice, Inc. 

P.O. Box 3072 

Glen Ellyn, IL 60138 
(312) 858-7950 
TWX 910-291-2190 


International Sales Offices 

Belgium: Softshop. Phone: (32) 53-664875. 
England: Round Hills. Phone: (0672) 54675. 
Japan: Lifeboat Japan. Phone: (03) 293-2311. 


Circle no. 58 on reader service card. 


Å breakthrough in Price, 
Performance and Packaging 


The new L5 proves that good things come in small packages! Measur- 
ing a compact 3.75"H x 17.5"W x 21"D, the L5 is small enough to 
fit on a desk-top or a laboratory workbench. Yet it's large enough to 


L5 Features 


° KDJ11 Processor, floating point, 8K cache 


° SMb to 32Mb memory 


* 4 to 32 users 


* 20Mb to 2.5Gb external storage 
* UNIX System V Fast Kernel or Real Time Kernel 


° Runs RT11, RSX, and TSX 
* [ncludes several utilities packages, necessary cabling, complete 
documentation and tutorials 


handle up to 32 users and, in some applications, outperform a VAX 
system. The L5 is small in price, too. A mid-range system can cost less 
than $1,000 per user! 
Find out how the new L5 offers the unique solution to price, perfor- Aggressive Dealer/OEM discounts available 
NA I 
mance & placement challenges. Call General Communications today! PE TO AE 


VAX, RT11, & RSX are trademarks of Digital Equipment Corporation 
TSX is a trademark of S&H Computer 


e General Communications Corporation 


“Where lucid communications, technical excellence and common sense meet.” 


1 Main Street, Suite 502, Eatontown, NJ 07724 (201) 542-6560 


Circle no. 13 on reader service card. 


Dr a wing on the C-64 (Listing Continued, text begins on page 50) 


Listing Four 


NORSTR C744 NOSCAL 
PLTSHD C2ØF FROD 
QUOT BE D RØ 

RAM Ø36A RANDOM 
RI Ø38F RNDM 
RS Ø38A RT 
SPOOL CA3B SQR 
TEMP 0384 TNTMP 
TPARM C794 VALUE 
XPLT Q33F XREL 
YCENT ØI6SF YFLT 
ZEROOT C791 ZREL 


END OF ASSEMBLY 


Listing Five 


20991 2200 

20002 2200 

090003 AA 

00094 0990 

29005 0000 

00006 0090 

902007 Bova 

00008 ØO 

00007 0009 

09919 Øg 

00011 QOQOQQ 

00012 2200 

00013 000 

090014 0009 

000915 0009 

00015 9090 

902017 9009 

00018 9000 

000197 0009 

00020 02099 

09021 2200 

00022 00009 

09923 0090 

09924 ØA 

000253 0000 

09025 0009 

82227 00909 

00028 Øg 

00029 0000 

00039 09009 

90051 20228 

00032 90009 

000335 2200 

00034 2802 

00035 00O 

29936 90090 

00037 9209 

82038 2202 

090039 00g 

090040 2009 

090041 8202 

09942 2200 

00043 0990 

00044 0009 

Ø9Ø45 8200 

00048 8220 

00047 8800 

00048 ga 

90049 90900 

00050 8200 

09051 9000 

00052 0000 

00053 A020 

00054 2000 

09055 0009 

909056 2000 

00057 'Ø900 

0058 0009 

00059 0099 

09060 2200 

09061 2000 

00052 2208 

00953 0009 

099064 2202 

090055 8820 

HDD A208 

00057 28200 

09068 8393 

@2269 8394 

00070 09394 

00071 CACB 

00072  CAC8 

00073 CACB 

00074  CACS8 

090075  CAC8 

90075 CACB 

90077  CACB 

90078  CAC8 

900079  CAC8 

920080 CACB 

00081 CACS 2@ FD AE 
00082 CACB 20 9E AD 
00083 CACE 20 AA Bi 
020084 CAD1 

@2@85 CADI ¿Q 
QQQ86  CAD2 

00087 CAD2 

00088  CAD2 

90089 CAD2 A? 2C 
00098 CAD4 AB ØY 
09091 CADA 84 FB 
90092 CADB Di 7A 
90093 CADA DØ oz 
90094 CADC 4C 73 QQ 
90095 CADF op 80 
00996 CAEL 84 FB 
00097 CAES Go 
000978 CAE4 

09099 CAE4 

00100 CAE4 

00101 CAE4 20 D2 CA 
00102 CAE7 24 FB 
00103 CAE? 30 OF 
020104 CAEB 28 9E AD 
090105 CAEE 20 AA bi 
920105 CAF1 BC 8F Ø3 
90107 Cora "o C8 CA 
90108 CAF7 BC BE oz 
00109 CAFA 69 
00110 CAFB 

76 


9347 ORIGIN CSEA PLDONE C721 
ØØAE PTPLOT C628 PTPLT2 C6SD 
0389 RADCND OAC RADIUS 0377 
Cece RC @38D RHEMI C6EB 
coga RO Ø3BE ROOT @32C 
@38C SDIV CSEA SPHERE C7C7 
Hot SORT CØ654 SQUARE CØ94 
Ø37B TONE 0379 TOROID CIOF 
0344 XCENT OZSA XMAX 0392 
@36C XSHD ØISD XSOR 0390 
0341 YREL 0370 YSHD 0371 
9373 ZWX 0375 


INTERFACE - EASY PARAMETER SETTING FOR SHAFE 
DRAWING ROUTINES FROM BASIC. 
RYLANDER 


RICHARD L. 11/23/84 


g PEIE FEI HE IE E IE JE AE E IE FE JE IE PE IE IE EE JE AE EE JE AE AE AE AE AE E IE AE HEE 
ORIGIN=4CAC8 
RAM =3Ø393 


PARAMETER LOCATIONS FOR VARIOUS SHAPES 


; 
XCENT 


=$Ø56A 
YCENT =4036F 
XFLOT =#033F 
YFLOT =$0341 
XMIN =$Ø54A 
YMIN =$Ø34C 
XMID =#034D 
YMID =$Ø34F 
XMAX z30:50 
YMAX -30:52 
RADIUS 23430377 
HL EN =$Ø389 
RI =4Ø38F 
RO =$Q38E 


H 

HVFLAG =#8383 
VALUE =$0344 
FLTFLG =3Ø33E 
D 

DEFLAG =4$FB 


HHT HHH HEH MH N RMO 


FUNCTION LOCATIONS 


" on wn we a 


H 
GRFON  -$COE2 
GRFOFF =#C1@3 


SWITCH TO GRAFHICS MODE 
RETURN TO TEXT DISPLAY 


H 

CLEARR=3C12C 
CLRBYT=4C135 
COLORR=#C118 


CLEAR BITMAF 
CLEAR (FILL) BYTE 
LOAD COLOR MAP 


en x. we we 


COLBYT=#C119 COLOR BYTE 

E 

FLOTR =#C14B POINT FLOT ROUTINE 
LINER =$C2DB DRAW A LINE 


FACETR =#C4E1 DRAW A SHADED FACET 


, 
SMEAR HHH ECCE AG 26 26 E JE HHH RHE 


SHADED SHAFE DRAWING ROUTINES 


D 
SPHERR=4C7C7 
CYLNDR=#C864 
TORUSR=3C7ØF 
EDGTOR=$C8BF 
SPOOLR=$CA3B 


D 
g K DE ND XE EXC MEE XC EE EIE XE EE EXE EXE IE ICE XGA IEEE XE A € 


SPHERE 

CYLINDER 

TOP-VIEW TOROID 
EDGE-VIEW TOROID 
INSIDE-VIEW TOROID 


; 
; BASIC ROM ROUTINES 


; 

CHKCOM=#AEFD ; CHECK FOR COMMA 
EVAEXP=#AD9E ; EVALUATE EXPRESSION 
FLTFIX=3B1AA ; CONVERT TO FIXED 

; 

*=RAM 

LINFAC s*=x+1 : LINE OR FACET FLAG 
D 

*=ORIGIN 


, 
g Y (OCC EIE IEEE MC YE DA DD FE RRR HIE OGGE DA IE AE 


, 

; GET PARAMETERS FROM BASIC CALLING STATEMENT 
3 OF THE FORM: 

3 SYS(FNCTN),FARAM1,PARAM2,PARAM3COPT 1 

; WHERE THE THIRD PARAMETER (FOR EXAMPLE) 

; MAY BE OPTIONAL (A DEFAULT VALUE IS USED 

; IF THE FARAMETER IS NOT SFECIFIED) 

, 

G 


ETNUM JSR CHKCOM ; LOOK FOR COMMA 
JSR EVAEXP : EVALUATE EXFRESSION 
JSR FLTFIX ; CHANGE TO INTEGER WITH 
; HIGH BYTE IN "A" AND LOW BYTE IN "Y" 
RTS 
; CHECK FOR ADDITIONAL (OPTIONAL) FARAMETERS 
, 
FCHECK LDA ##2C 3; "," COMMA 
LDY #0 
STY DEFLAG 
CMP (#7A),Y 
BNE NOMORE ; NO COMMA - USE DEFAULT 
JMP $0073 
NOMORE LDY #+#8Q 
STY DEFLAG 
RTS 


; 
: GET TWO ADDITIONAL PARAMETERS FOR TOROIDS 
> 
GETTWO JSR PCHECK 

BIT DEFLAG 

BMI DFAULT 

JSR EVAEXF 

JSR FLTFIX 

STY RI 

JSR GETNUM 

STY RO 
DFAULT RTS 
5 


90111 
929112 
92113 
92114 
92115 
02116 
90117 
20118 
92119 
00120 
90121 
90122 
99123 
00124 
00125 
92125 
99127 
90128 
90129 
00130 
00131 
00132 
009133 
00134 
00135 
00134 
00137 
00138 
90139? 
00140 
00141 
00142 
00143 
00144 
08145 
00146 
00147 
92148 
90149 
200158 
00151 
92152 
00153 
20154 
00155 
001564 
90157 
@2158 
00159 
20160 
0161 
00142 
00143 
20144 
00145 
GTZ 
00157 
92158 
00149 
22172 
902171 
90172 
900173 
90174 
90175 
00176 
90177 
90178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00184 
00187 
00188 
20189 
00190 
00191 
20192 
00193 
20194 
90195 
0901965 
00197 
20198 
001979 
00200 
00201 
08202 
00203 
90204 
00205 
00206 
080207 
00208 
00209 
20219 
00211 
00212 
00213 
20214 
09215 
00214 
00217 
00218 
00219 
00220 
@8221 
20222 
00223 
00224 
00225 
00226 
20227 
00228 
00229 
80230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 


CAFB 
CAFB 
CAFB 
CAFB 
CAFB 
CAFE 
CBO1 
CBØ4 
CBØ7 
CBØA 
CBØB 
CBØB 
CBØB 
CBØB 
CBØB 
CBØB 
CBØB 
CBØE 
CB1Ø 
CB12 
CB15 
CB18 
CB19 
CB1B 
CB1E 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB24 
CB26 
C528 
CB2B 
CB2E 
CB2F 
CBZ1 
CB34 
CB37 
CB37 
CB37 
CB37 
CB37 
CB37 
CB39 
CB3A 
CB3C 
CB3F 
CB42 
CB45 
CB48 
CB4B 
CB4E 
CBS1 
CB5i 
CBS1 
CB51 
CBS1 
CBS1 
CBS1 
CB51 
CBS3 
CB54 
CBS 
CB59 
CBSC 
CBSF 
STE 
CB65 
CB68 
CB5B 
CBSE 
CB71 
CB74 
CB77 
CB7A 
CB7C 
CB7F 
CB82 
CB85 
CBB88 
CBBB 
CBBE 
CB91 
CB94 
CB97 
CB97 
CB97 
CB97 
CB97 
CB97 
CB97 
CB9A 
CB9D 
CB9F 
CBA1 
CBA4 
CBA7 
CBAA 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CEB 
CBB3 
CBB& 
CBB& 
CBB& 
CBB& 
CBB6 
CBB& 
CBB& 
CBB& 
CBBB 
CBB9 
CBBB 
CBBE 
CBC1 
CBC4 
CBCé 
CBC8 


A9 
2C 
A? 
BD 
20 
8C 
8D 
28 
BC 
4C 


28 


> 
< 


4C 


cs 
6A 
6B 
c8 
6F 


D2 
FB 
Q7 
9E 
AA 


22 
35 
2C 


80 


k < 
- 


ca 
SF 
40 
CR 
41 
4B 


og 


ea 
ce 
4A 
AB 
ce 
4C 
c8 
4D 
4E 
ce 
AF 
93 
18 
ce 
50 
CH 
ca 
$2 
ca 
44 
El 
DB 


FB 


OF 


o 
83 
FB 
D2 
FB 
er 
9E 


CA 
o3 
93 
CA 
93 


C1 
C1 


CA 


AD 
Bi 


C1 
C1 


CA 
CA 
c9 


o3 
CA 
CA 


AD 


g COODOOOEOIOIEROE FE E AE PE BE PE AE FE IE JE AE IE AE AE JE HE NG NG AE AE 36 AE FE AE ERR 
D 
; SET CENTER COORDINATES 


, 

CENTER JSR GETNUM 
STY XCENT 
STA XCENT+1 
JSR GETNUM 
STY YCENT 
RTS 


dC 3C 3€ I 3E NG AG DIG IG DA DE IG IG IE IE E EIE IE IE IG AG XE XE EXE IE NE AG IG XE IEEE DE 


D 

; 

j 

3 CLEAR THE BITMAP, FILLING WITH (OPTIONAL) 
; FILL VALUE SPECIFIED OR WITH (DEFAULT) "Q" 
D 
C 


LEAR2 JSR FCHECK 
BIT DEFLAG 
BMI DEFCLR 
JSR EVAEXP 
JSR FLTFIX 
.BYTE $2C 

DEFCLR LDY #2 

STY CLRBYT 
JMP CLEARR 


X 0 (0 € (CC HARMEN 


D 
; 
, 
; FILL COLOR HAP WITH (OPTIONAL) COLOR BYTE 
; SFECIFIED OR WITH (DEFAULT) "401" 
; (BLACK DOTS ON WHITE BACKGROUND? 
, 
COLOR2 JSR PCHECK 

BIT DEFLAG 

BMI DEFCOL 

JSR EVAEXP 

JSR FLTFIX 

«BYTE 32C 
DEFCOL LDY WFØ1 

STY COLBYT 

JMP COLORR 


IE FE 3€ CIC 3C CC 3E Ee C € IE M Y EXC ME DE EEG € DE ONE 36 GC XC 


PLOT OR UNFLOT FOINTS 


“Ties va er on we 


‘LOT2 LDA gu 
.BYTE #2C 
UNPLT2 LDA ##89 
STA FLTFLG 
JSR GETNUM 
STY XFLOT 
STA XFLOT+1 
JSR GETNUM 
SEY NEAT 


JMP PLOTR 


ie ee ee ee IEEE IE QC JE C9 9€ JC € 9E C € 9X9 9€ 


DRAW LINES BETWEEN (X1,Y1) AND (X2,Y2) 
OR SHADED FACETS BETWEEN THREE FOINTS 
(X1,Y1), (X2,Y2) AND (X3,Y3) 


[^ wow we w w ep we 


INE? LDA #0 

- BYTE. #2C 
FACET2 LDA #80 
STA LINFAC 
JSR GETNUM 
STY XMIN 
STA XMIN+1 
JSR GETNUM 
STY YMIN 
JSR GETNUM 
STY XMID 
STA XMID+1 
JSR GETNUM 
STY YMID 
BIT LINFAC 
BFL LDRAW 
JSR GETNUM 
STY XMAX 
STA XMAX+1 
JSR GETNUM 
STY YMAX 
JSR GETNUM 
STY VALUE 
JMP FACETR 
JMF LINER 


KAKE HERE HERRERA HHH HHH HHH 


DRAW A SPHERE CENTERED AT (XCENT,YCENT) 
DEFAULT RADIUS IS LAST VALUE USED 


UI ve er we we we we 


FHER2 JSR CENTER 
JSR FCHECK 
BIT DEFLAG 
BMI SKIF1 
JSR EVAEXP 
JSR FLTFIX 
STY RADIUS 

SKIP1 JMF SFHERR 

GM TE JAE IE IE IE JE IE FE FE IE ETE IE FFE IE AE E ME DE DEN JE AEE NE 


DRAW A TOP-VIEW TOROID AT (XCENT,YCENT) 
DEFAULT INNER AND OUTER RADII ARE LAST USED 


LEM 


GRUS2 JSR CENTER 
JSR GETTWO 
JMP TORUSR 


kaka DA DE EIE IE IEEE EIE IEEE EIE E IEEE EE IEEE QE EAE E EE 36 36 26 E 


DRAW CYLINDERS WITH AXES HORIZONTAL OR 
VERTICAL. DEFAULT RADIUS AND "HALF-LENGTH" 
; ARE LAST VALUES USED. 


; 
VCYL2 


e 
E 
e 
; 
D 
. 
D 
š 
; 


LDA #382 
«BYTE #2C 
LDA #2 

STA HVFLAG 
JSR CENTER 
JSR FCHECK 
BIT DEFLAG 
BMI SKIP2 
JSR EVAEXP 


HCYL2 


(Continued on page 78) 
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Does your ISAM 
run om IBM, 
APPLE. DEG 
anc] AT&T 
EOMPUGEPSVY 
c-€ree coes, amne 
vou em; BUY 
IT ONCE! 


2606 Johnson Drive 
Columbia MO 65203 


Circle no. 37 on reader service card. 
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Due to popular demand, Dr. Dobb's Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $5.00. 

Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 

The J. E. Hendrix reprint includes part two of "Small-C Compiler v.2” 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 


Please send copy(ies) of the Ron Cain Reprint, and 
copy(ies) of the J. E. Hendrix reprint to: 
Name 
Address 
City State Zip 
ALL REPRINT ORDERS MUST BE PREPAID. 
Please allow 6-9 weeks for delivery. 103 


C Programmers: 
Program 
three times faster 


with Instant-C 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 


Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 
message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 
your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don't 
need to recompile or reload using special 
options. 

Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087" co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Guaranteed, or 
your money back. Instant-C™ 

Is available now, and works under 
PC-DOS, MS-DOS*, and CP/M-86*. 

Find out how Instant-C™ is changing 
the way that programming is done. 
Instant-C™ is $495. Call or write for 
more information. 


Rational 


Systems, Inc. 
(617) 653-6194 
P.O. Box 480 
Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp. 1 8087 (Intel Corp.). CP/M-86 
( Digital Research. Inc.). Instant-C (Rational Systems. Inc.) 


Circle no. 79 on reader service card. 
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Listing Five 


90238 CBCB 20 AA B1 JSR FLTFIX 530 POKE 198,0:WAIT 198,1:POKE 198,0 

00239 CBCE 8C 77 23 STY RADIUS 540 REM WAIT FOR A KEY TO BE PRESSED 

00240 CEDi 20 C8 CA JSR GETNUM 55Ø : 

00241 CBD4 8C 89 Q3 STY HLEN 56Ø REM DRAW TWO "GOBLETS" ONE WITH HALFTONE, THE OTHER RANDOM SHADING. 
90242 CBD7 4C 64 C8 SKIP2 JMP CYLNDR 570 : 

00243 CBDA ; 58Ø SYS(CL):SYS(CO) ,15*11+1 

90244 CBDA 5 HEHEHE E JE IE JE JE IE IE FE E IE AE FE JE FE PE JE IE EXE AE EE IE FE FE IE PE JE AE PE JEJE IE AE AE aE HE 582 RW=14:CM=15:Af="COMPARISON":GOSUB 19Ø:RW=15:CM=19: A$="0F":GOSUB 199009 
00245 CBDA ; 584 RW=16:CM=14:A$="SHADE STYLES":GOSUB 19ØØ:RW=18:CM=14: A$="<-- HALFTONE" 
00244 CEDA ; DRAW EDGE-VIEW TOROIDS WITH AXES HORIZONTAL 586 GOSUB 19900:RW-20:CM-15:A$-"RANDOM -->":GOSUB 1900 

00247 CBDA ; OR VERTICAL 570 POKE LB,255:POKE RB,255:FOKE UB,49:FOKE DB,255: REM CLIP AT SCREEN TOP 
90248 CBDA s INNNER AND OUTER RADII ARE OPTIONAL 688 SYS(SP) ,80,198,e0 

@@249 CBDA ; 610 POKE UB,S1:POKE DB,51: REM CLIP AT JUNCTION WITH SPHERE FOR SMOOTH SEAM 
20250 CEDA A? BØ VTOR2 LDA grou 620 SYS(VS) ,88,69,18,130 

@@251 CBDC 2C .BYTE #2C 630 POKE DB,9:POKE UB,8 

900252 CBDD A? QQ HTOR2 LDA #0 640 SYS(VT) ,88,9,25,45 

00253 CEDF BD 83 Q3 STA HVFLAG 650 POKE SH,@ :REM SWITCH TO RANDOM SHADING 

Q0254 CBE2 20 FB CA JSR CENTER 668 POKE LB,255:POKE RB,255:POKE UB,49:POKE DB,255 

@@255 CBES 20 £4 CA JSR GETTWO 670 SYS(SP),240,190,80 

00256 CBEB 4C 8F C8 JMP EDGTOR 680 FOKE UB,S1:POKE DB,S1 

00257 CBEB ; 670 SYS(VS),24Ø,69,10,139 

00258  CBEB bb th thee EIE JE 26 36 MDG DN eee eee ee ee SS 700 POKE DB,9:FOKE UB,8 

00259 CBEB ; 710 SYS(VT) ,240,9,25,45 

00240  CBEB ; DRAW INSIDE-VIEW TOROIDS, "SFOOLS", 720 POKE 198,0:WAIT 198,1:POKE 198,0 

00261 CBEB ; WITH AXES HORIZONTAL OR VERTICAL 740 : 

00242 CBEB ; INNER AND OUTER RADII ARE OPTIONAL 750 REM DRAW "WINE" SCENE 

00263 CBEB ; 760 FOKE LT,1 :REM BACKLIT ILLUMINATION 

092644 CBEB A? 80 VSPL2 LDA #580 770 POKE SH,1 :REM HALFTONE SHADING FOR MOST (RANDOM "LABEL" ON BOTTLE) 
@@265 CBED 2 «BYTE #2C 780 SYS(CO):SYS(CL),255: REM FILL BITMAP WITH 1'S ("SET" BACKGROUND? 
@@266 CBEE A? QQ HSPL2 LDA HQ 790 FOKE BO,@ : REM BLACK BORDER TO MATCH BACKGROUND 

00267 CBFO 8D 83 oi STA HVFLAG 792 RW-Q:CM-0:MD-2:44-"DRAWING WITH":GOSUB 1999:RW-1:CM-22:0£-"BACKLIGHT" 
00268 CBF3 20 FB CA JSR CENTER 794 GOSUB 1990:RW-2:CM-0:4$-"AGAINST A SET":GOSUB 1990 

900269 CBF& ZQ E4 CA JSR GETTWO 796 RW=3:CM=2: AF="BACKGROUND": GOSUB 1709 

90270 CEF? 4C 3B CA JMP SFOOLR 798 RW=1:CM=26:A$="COLORS  ADDED":GOSUB 1900 

90271 CBFC . END BØØ RW=2:CM=25:A$="TO SELECT AREAS":GOSUB 1790 


810 REM DRAW BOTTLE 
820 POKE UB,Ø:FOKE DB,255:POKE LB,255:FOKE RB,255 


ERRORS = 20000 830 SYS(VT),150,10,20,50 
840 POKE UB,255:SYS(VC) ,150,70,50,50 
SYMBOL TABLE 850 POKE DB,Ø:SYS(VT),15Ø,13Ø,6,59 
850 POKE DB,55:FOKE UB,Ø:SYS(VS),15Ø,204,15,181 
SYMBOL VALUE 870 POKE UB,255:SYS(VC),150,221,16,17 
CENTER CAFB CHECOM AEFD CLEAR2 C ØB CLEARR C12C 880 : 
CLRBYT C135 COLBYT C119 COLOR2 C521 COLORR C118 890 REM DRAW WINE GLASS 
CYLNDR C844 DEFCLR ` CB19 DEFCOL CB2F DEFLAG —ØØFB 900 FOKE UB,20:SYS(SP),80,120,60 
DFAULT CAFA EDGTOR C88F EVAEXF ADIE FACET2 C554 9180 POKE UB,S5:FOKE DB,34:SYS(VS),80,34,1Ø,11Ø 
FACETR C4E1 FLTFIX B1AA GETNUM ` CACB GETTWO CAE4 920 : 
GRFOFF C103 GRFON COE2 HCYL2 CBB9 HLEN 0389 950 REM DRAW SOME GRAPES 
HSFL2 CBEE HTOR2 CBDD HVFLAG @383 LDRAW CB94 940 SYS(SF),8,8,8: REM OTHER "GRAPES" WILL BE SAME RADIUS - JUST GIVE POSITIONS 
LINE2 CBS1 LINER C2DB LINFAC 393 NOMORE  CADF 950 SYS(SP),20,8: SYS (SF) , 40,8: SYS(SP) ,12,20: SYS(SP) ,20,20: SYS(SF) , 25,16 
ORIGIN . CAC8 FCHECK  CAD2 FLOT2 CB37 FLOTR C14B 968 : 
PLTFLG Q33E RADIUS 377 RAM 0393 RI Z8F 970 REM DRAW AN APPLE BY A PAIR OF EDGE-VIEW TOROIDS AND A SPHERE SECTION 
RO Ø3BE SKIF1 CBAA SKIF? CBD7 SFHER2 C697 ` 980 POKE UB,255:POKE DB,255:FOKE LB,255:FOKE RB,59 
SPHERR ` C7C7 SFOOLR —CA3B TORUS? CBAD TORUSR —C9ØF 990 SYS(VT) ,260,29,0,50: SYS (VT) , 268,79 
UNFLT2 CB3A VALUE Ø344 VCYL2 CBB& VSFL2 CBEB 1009 POKE UB,43:FOKE DB,43:SYS(SP),260,54,650 
VTOR2 EBDA XCENT Ø36A XMAX Ø35Ø XMID Ø34D 1010 REM PUT STEM ON AFFLE 
XMIN 34A XFLOT Ø33F YCENT Ø36F YMAX 9352 1020 FOKE RB,Ø:FOKE DB,@:SYS(TR) ,272,104,10,15 
YMID 034F YMIN Ø34C YFLOT @341 1030 REM ADD A LEAF BY A SPHERE SECTION 
1040 POKE DB,255:POKE RB,Ø:SYS(SF),256,119,15 
END OF ASSEMBLY End Listin Five 1050 REM ADD A RANDOM SHADED "LABEL" TO THE BOTTLE 
g 10560 FOKE UB,255:POKE RB,255:POKE LB,6 
1070 POKE.SH,Ø:SYS(VC),150,72,50,48 
d? ° ^d 1080 : 
Listin SIX 1090 REM ADD COLORS TO "WINE" SCENE 
g 1100 SYS(CO),12:REM REFLACE WHITE "HOLES" (BACKGROUND) WITH MEDIUM GRAY 
1102 X120:Y1*-200: X2-100: Y2-239: DC=Ø: BC=Ø: GOSUB 1700: REM HIDE TEXT IN CORNERS 
10 REM SHAPES DEMO 1104 X1=180:Y1=2ØØ:X2=319: Y2=239: DC=Ø: BC=Ø: GOSUB 1700 
20 : 1110 X1=2ØØ:Y1=1:X2=315: Y2=1ØØ: DC=Ø: BC-2: GOSUB 1700 
3Ø REM RICHARD L. RYLANDER 11/23/84 (REVISED 1/20/85 TO ADD LABELING) 1120 X1=24Ø:V1=11Ø:X2=255: Y2=15Ø: BC=5: GOSUB 1722 
Ad s 1130 X12260:Y1-2110: X2-270: Y2=125:BC=9:GOSUB 1700 
5Ø GR*49378 :REM GRAFHICS MODE 1140 X121:Y1-21:X2-48:Y2-20:BC-4:GOSUB 1700 
60 TX=49411 :REM TEXT MODE i 1150 X1=14Ø:Y1=2Ø5:X2=180: Y2=235: BC=7: GOSUB 1700 
70 : 1160 X1=145:Y1=25:X2=195: Y2=115: BC=6: GOSUB 1720 
80 LB=893 : REM LEFT BOUND 1170 FOKE 198,0:WAIT 198,1:FOKE 198,0 
92 RB-894 :REM RIGHT BOUND 1190 : 
100 UB-895 : REM UP BOUND 1200 REM “COFFEE AND DONUTS" 
110 DB=896 Å REM DOWN BOUND 1210 POKE SH,@ :REM RANDOM SHADING ON DONUTS 
128 1220 SYS(CO),16*11*1:SYS(CL' : FOKE BO,1:REM WHITE BORDER TO MATCH BACKGROUND 
130 REM FLAGS FOR VARIOUS DRAWING MODES 1230 POKE LB,255:FOKE RB,255:POKE UB,255:FOKE DB,255 :REM NO INITIAL CLIPPING 
139 : 1240 SYS(VT) ,68,20,20,640 
150 SH-838 :REM SHADE STYLE - Ø=RANDOM, 1-HALFTONE 1250 POKE RB ,29:SYS (VT) , 99,50: PDKE “RB, 255 
160 SC-839 : REM SCALING - @=NORMAL (1:1), 1=SCALED (3:4) FOR SCREEN DISPLAY | 1260 SYS(TR), 188,160 
170 LT-898 :REM LIGHTING - @=NORMAL SINGLE-SOURCE, i-BACKLIT ILLUMINATION SETE: REM AUD. COFFEE CUP. (ASETUNG SHARING? 
180 ; 1280 FOKE SH,1:FO0KE UB,0:5YS(VT),188,20:POKE UB,255 
200 : 1300 POKE DB,255:FO0KE UB,Ø:FOKE LB,Ø 
210 REM FUNCTION LOCATIONS 1310 SYS(TR) ,248,90,50,70:FO0KE LB,255:SYS(SP),248,11Ø, 1ø:FOKE UB,255 
220 : 1320 SYS(VC) ,208,100,10,10 
230 CL=51979  :REM CLEAR BITMAP AREA 1330 SYS(VC),188,77,60,57 
240 CO-52001 :REM FILL COLOR MAP 1340 POKE DB,Ø:SYS(VT),188,134,4Ø,64Ø 
250 : 1350 REM ADD COLOR - FIRST MAKE SCREEN BROWN DOTS ON WHITE THEN MAKE CUP GREEN 
260 SP=52119 :REM SPHERE 1360 SYS(CO),1*16*9 :REM 1=WHITE BACKGROUND, 9=BROWN DOTS 
270 TR=52141 :REM  TOP-VIEW TOROID 1370 X12130:Y1-1:X2-219:Y2-135:BC-1:DC-5:GO0SUB 1700 
280 VC-52150 :REM CYLINDER (AXIS VERTICAL) 1380 X12250:Y1-2144:X2-319:Y2-144:GOSUB 17900 
292 HC-52153 :REM CYLINDER (AXIS HORIZONTAL) 1390 FOKE 198,0:WAIT 198,1:POKE 198,9 
3ØØ VT=52186 :REM EDGE-VIEW TOROID (AXIS VERTICAL) 1410 : 
310 HT-52189 :REM EDGE-VIEW TOROID (AXIS HORIZONTAL) 1420 REM DRAW "LINKED" TOROIDS BY REDRAWING OVERLAP AREAS USING CLIFFING 
320 V8-52203 :REM INSIDE-VIEW TOROID ["SPOOL"1 (AXIS VERTICAL) 1430 FOKE LT,Ø :REM BLUE DOTS ON WHITE, NO BACKLIGHT 
330 HS=52706 :REM  INSIDE-VIEW TOROID ("SFOOL"J (AXIS HORIZONTAL) 1449 SYS(CL) :SYS(CO) ,1+16*6: REM 1=WHITE BACKGROUND, &=BLUE DOTS 
340 : f 1450 POKE UB,25S:FOKE DB,25S:FOKE LB,255:FOKE RB,255: REM NO INITIAL CLIFPING 
350 REM DRAW SAMPLES OF FRIMITIVE SHAFES WITH LABEL BENEATH EACH 1460 POKE SH,Ø  :REM RANDOM SHADING 
36Ø : 1470 SYS(TR) ,244,84,48,70 
370 POKE SH,1 :REM HALFTONE SHADING 1488 SYS(TR) ,150,84: SYS (TR) ,76,84 
380 POKE SC,1 :REM USE SCREEN SCALING (FOR UNDISTORTED SFHERES, ETC.) 1490 SYS(TR),118,156: SYS (TR) ,202,156 
370 POKE LT,Ø :REM USE NORMAL (NO BACKLIGHT) ILLUMINATION 1500 REM ADD PROPER OVERLAP SECTIONS 
400 SYS(CL) :REM CLEAR SCREEN (DEFAULT - FILL BITMAP WITH Q'S) 1518 POKE RB,Ø:FOKE DB,@:SYS(TR) , 160,84: POKE RB,255:FOKE LH, øO 
410 SYS(CO),16*11«1 :REM COLOR COMBINATION - DARK GRAY (11) DOTS ON WHITE (1) 1520 SYS(TR) ,76,84:FOKE DB,2SS:iFOKkE UB,Ø:SYS(TR),118,156 
412 REM LOOKS BETTER THAN DEFAULT COLOR COMBINATION OF BLACK DOTS ON WHITE 1538 POKE LB,255:POKE RB,O:SYS(TR),202,156:PÜKE LB,27 
414 REM ON MOST COLOR MONITORS 1540 POKE DB,Ø:POKE UB,255:8YS(TR) , 160,84 
420 FOKE BO,1 :REM WHITE BORDER TO MATCH BACKGROUND 19508 POKE DB,@:FOKE UB,2S55:SYS(TR) ,160,84 
430 SYS(GR) PER ENTER BITMAFFED GRAPHICS MODE 1560 FOKE LB,755:POKE UB,27:SYS(TR) ,244,84 
432 RW*12:CM914:MD-1:4f-"SAMPLE SHAPES":GOSUB 1900:REM FUT TITLE GN IMAGE 1570 FOKE LB,Ø:FOKE RB,27:POKE UB, 255:SYS(TR) ,244,84 
434 Xi=11Ø:Vi=12Ø:X2=21Ø: Y2-120: BC=1:DC=7:GOSUB 17ØØ:REM COLOR TITLE TEXT 1559 FOKE 98,0 
44Ø POKE LB,38:FOKE RB,38:FOKE UB,38:FOKE DB,38 :REM INITIALIZE CLIPPING 1598 GET Af:IF AS= "" THEN 1590 
450 SYS(SP),40,199,38 1600 SYS(TX):POKE BO,14:REM RETURN TO TEXT MODE 
455 RW=9:CM=2:MD=1:As="SPHERE" : GOSUB1900 1610 END 
460 SYS(HC),12Ø,199,38,738 1620 : 
465 CM-11:552"H-CYLNDR" : GOSUB190Q 1630 REM SUBROUTINE FOR ADDING COLOR TO DIFFERENT SCREEN AREAS 
470 SYS(VC) ,200,199 :REM NO SIZE PARAMETERS GIVEN, DEFAULT (PREVIOUS) ARE USED 1640 REM REMEMBER THAT COLOR BOUNDARIES MUST CORRESPOND TO CHARACTER BOUNDARIES 
475 CM*21:05-"V-CYLNDR" : GOSUB1 990 1650 REM DEFINE A RECTANGULAR AREA BY LOWER-LEFT AND UPPER-RIGHT COORDINATES 
480 SYS(TR) ,280,199,15,38 1668 REM (X1,Y1)=LOWER-LEFT POINT, (X2,Y2)=UFPER-RIGHT POINT 
485 CM=32:A$="TOROID": GOSUB19ØØ 1670 REM THE CORNER POINTS CAN BE ARBITRARY BUT COLOR CHANGE WILL BE IN THE 
490 SYS(VT) , 40,54 1680 REM SMALLEST CHARACTER-CELL BOUNDED RECTANGLE THAT INCLUDES THOSE POINTS 
500 SYS(HT) 120,54 1700 IF PEEK(SC)THEN Yl=(Y1+1)*213/25&:Y2=(Y2+1)*213/256 
$180 SYS(HS),200,54,5,100 1720 REM WHERE CC=16*DC + BC CDC=DOT COLOR, BC=BACKGROUND COLOR NUMBERS1 
515 CM=221 Af="H-SPODL ": GOSUB19ØØ 1730 CC=15*DC+BC 
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Dr. a wing on th e C-64 (Listing Continued, text begins on page 50) 
Listing Six 


1760 POKE 34752*I1X-40*1Y,CC 900 REM DRAW FACETS (ACCORDING TO Z DEPTH SINCE NOT CONVEX) 
1770 NEXT: NEXT: RETURN 910 SYS(GR):SYS(CO):SYS(CL):FOKE EO, 1 
1780 : 920 FOR N=Ø TO VF:FA=K%(N) 
1799 REM SUBROUTINE TO ADD TEXT TO GRAPHIC SCREEN. 930 IF WI THEN SH(FA)=64 
1800 REM "RW" AND "CM" ARE THE ROW (0-24) AND COLUMN (0-39) COORDINATES FOR THE 940 XØ=P%IFUI(FA,Ø) ,0) : YO-FZCEZ CFA ,0) , 10 : X1SPX (EX CFA, 12 ,00 : YI SPA CEZ (FA ,1) , 1) 
1810 REM FIRST LETTER OF THE TEXT STRING TO BE PRINTED. 950 X2=P%(F%(FA,2) ,Ø) : Y2ZFZ (FZ(FA,2),1) 
1820 REM THE TEXT STRING ITSELF IS ASSIGNED TO "AF". 960 SYS(FC) ,X0, YO, X1, Y1, X2, Y2,SH(FA) 
1830 REM "MD" IS THE MODE FOR THE PRINTING. FIVE MODES ARE ALLOWED: 970 NEXT 
1840 REM 1 - NORMAL ("BLACK" LETTERS ON "WHITE" BACKGROUND) 9890 FOKE198,9 
1850 REM 2 - REVERSED ("WHITE" LETTERS ON "BLACK" BACKGROUND) 990 GET Af: IF AF="" THEN 99Q 
1860 REM 3 - SET ("BLACK") LETTERS "OR'ED" WITH BACKGROUND 1090 SYS(TX):FOKE BO,14:END 
1870 REM 4 - UNSET ("WHITE") LETTERS "AND'ED" WITH BACKGROUND 1010 : 
1880 REM S - SET LETTERS "XOR'ED" WITH BACKGROUND 19020 REM VERTEX DATA 
1892 : 1030 DATA 1000,518,0, 1000,-518,0, -1000,518,0, -1000,-518,0 
1900 SB=4Ø952:TB=54272: IF (MD AND 1)THEN TB-53248:REM SCREEN AND TEXT BASE ADDR'S| 1Ø4Ø DATA @,1000,418, 90,10290,—518, Ø,-1Ø00,618, 0,-1200,-618 
1910 OS=320*RW+8*CM: REM OFFSET FROM CHARACTER SCREEN BASE 1050 DATA 618,0,1000, -518,0,1000, 518,0,-1000, -518,0,-1000 
1920 FOKE 56334,FEEK (56334) AND 254:REM DISABLE IRQ TIMER 1060 DATA 518,0,226, 618,0,-236, -618,0,236, -618,0,-236 
1930 POKE 1,FEEK(1)AND 251:REM SWITCH CHARACTER ROM IN 1970 DATA 236,618,Ø, -236,618,Ø, 236,-618,Ø, -2356,-518,0 
1940 L=LEN(AS) :FOR N=1 TO LL: NBxN*B«*OS«SE 1080 DATA 0,256,618, @,-236,618, 0,225,-618, Ø,-236,-618 
1950 X=ASC(MIDF(AF,N,1)): IF X263 THEN X=X-64 1090 DATA 382,382,382, 382,382,-382, 382,-382,382, 382,-382,-382 
1968 TC=TB+8*X 11ØØ DATA -382,382,382, -382,382,-382, -382,-382,382, -382,-382,-382 
1970 ON MD GOTO 1980,1980,1990,2000,2010 1110 : 
1980 FOKE 53231,36:GOTO 2020 1120 REM CONNECTION DATA 
1990 POKE $3231,17:GOTO 2020 1130 DATA @,12,13, 0,13,25, 0,25,16, 0,16,24, Ø,24,12 
2000 POKE 53231,49:GOTO 20720 1140 DATA 4$,12,26,—1,26,18, 1,18,27, 1,27,15, 1513,12 
2010 POKE 53231,81 1150 DATA 2,15,14, 2,14,28, 2,284,17, 2,17,29, 2,29,15 
2020 POKE252,N8/256:F0HE251,N8-256* INT (NB/256) 1160 DATA 3,14,15, 3,15,31, 3,31,19, 3,19,30, 3,30,14 
2030 POKE254,TC/255:FOKE25:,TC-256* INT(TC/2S6) 1170 DATA 4,16,17, 4,17,28, 4,28,20, 4,20,24, 4,24,16 
2040 SYS(53221) : NEXT 1180 DATA 5,17,16, 5,16,25, 5,25,22, 5,22,29, 5,29,17 
2050 POKE 1,PEEE(1)0R 4:FOKE 565334,FEEK(56334)O0R 1:REM RESTORE TO NORMAL 1192 DATA 6,19,18, 6,18,26, 5,26,21, 6,21,3Ø, 6,30,19 
2060 RETURN 1200 DATA 7,18,19, 7,19,31, 7,31,23, 7,23,27, 7,27,18 

SW £ 1210 DATA 8,20,21, 8,21,26, 8,26,12, 8,12,24, 8,24,20 
READY. End Listing Six 1220 DATA 9,21,20, 9,20,28, 9,28,14, 9,14,30, 9,30,21 


1230 DATA 10,23,22, 10,22,25, 10,25,15, 10,13,27, 10,27,23 
1240 DATA 11,22,23, 11,253,531, 11,31,15, 11,15,29, 11,29,22 


Listing Seven READY. End Listing Seven 


2: 
18 REM "STELLATION" DRAW A SMALL STELLATED DODECAHEDRON IN VARIOUS ORIENTATIONS Listin Fi ht 
20 REM AND STYLES RICHARD L. RYLANDER 12/5/84 5 g 


38 : 
40 GR=49378 :REM GRAPHICS MODE 800001 2020 s KEYSORT - RELOCATABLE BUBBLE SORT USING KEY ARRAY 
SO TX=49411 :REM TEXT MODE 00002 gagag ; POINTING TO INTEGER ARRAY 
68 BO=5328Ø :REM BORDER COLOR QooQ3 e200 ; 
70 1 i 20004 00900 ; RICHARD L. RYLANDER 1/12/85 
80 REM INITIALIZE A FEW STYLE FARAMETERS 20005 0009 ; 
9Ø POKE 839,1 :REM SCALE (3:4) FOR UNDISTORTED SCREEN DISPLAY 20096 BODA ORIGIN=#CF59 ; 53281. (FOLLOWING DOS 5.1) 
108 POKE 871,0 :REM FACET EDGE/LINE MODE (Ø=DRAW, 1=ERASE) 20007 2000 e ! 
110 SH=838 :REM SHADE STYLE (Ø=RANDUM, 1=HALFTONE) Goes 220 KB = $FB ; 251. POINTER TO KEY ARRAY 
120 EG-858 :REM EDGES FLAG (Ø=NORMAL, 1=ADD LINES TO FACET EDGES) 28009 9000 ZB - $FD ; 253. POINTER TO DATA ARRAY 
130 : 140. FOK , 
GH 92200 MAX = $8 š 40. FOKE WITH MAX ARRAY INDEX 
140 REM FUNCTION LOCATIONS xe og eoo TOP % ier ter VER E EE 
150 CL=51979 :REM CLEAR BITMAP 00012 0920 TOPDIS = $AD 
160 CO=52ØØ1 :REM FILL COLOR MAP 00013 ga00 FLAG = AE 
170 FC=52052 :REM DRAW A SHADED FACET 20014 OA NXTFLG = #41 
190 : p | 
' g eo = + 2 
200 XC-150:YC-120 :REM (SCALED) SCREEN CENTER COORDINATES is wage gt ET 
210 : w 
220 PRINT" (SC) HEIE IE JE JE AE FE IE E JE ee ICI CIEGO EXC! ies éi PSD ë PRE 
" d E " , 
— PRINT * SMALL STELLATED DODECAHEDRON « 90020 CF59 AQ FF INIT LDY ##FF ; INITIALIZE KEY ARRAY 
240 PRINT" (eee E E ee eee eee ee ee ee E a t 22021 CF5B C8 INLOOP INY 
25Ø PRINT"(CD) (CD) SELECT SHADING STYLE: " 00022 CFSC 98 TYA 
260 FRINT" R-RANDOM, H=HALFTONE" 00023 CFSD 91 FB STA (KB) .Y 
270 INPUT"(CD) YOUR CHOICE HXCL? {CLI «CL? "; AS = c i 
à å 09024 CFSF CS 8C CMP MAX 
280 FOKE SHØ: IF A$-"H" THEN FOKE SH,1 90025 CFöl DØ F8 BNE INLOOP 
290 PRINT"CCD2XCD? SELECT STYLE FOR DRAWING: " 00025 CEA? 8 
" - ` WÉI " re} " = , 
300 PRINT*CCD) N NORMAL": PRINT" (CD) E EDGES EMPHASIZED 00027 CF43 85 AD SORT STA TOPDIS ; ‘A’ HOLDS ‘MAX’ 
310 PRINT"(CD) W - WIRE FRAME (HIDDEN LINES REMOVED) " ° 
320 INFUT"{CD} YOUR CHOICE See MISI Mr 00928 CF65 AS AD LOOP1 LDA TOFDIS 
NXCL 2 ICL} «CL 2 "; AF m = 
š ` ; ë s= 000297 CF67 85 AC STA TOF 
3350 FOKE EG,Ø:WI=Ø: IF At="N" THEN 360 
240 POKE EG,1:IF Af="W" THEN WI=-1 eed E eee Eon. ae 
350 : * 00931 CF&B 86 61 ' STX NXTFLG 
360 PRINT"{CD> READING VERTEX DATA" dios Gë Pe a LOOP2 noe duc ii 
370 VN-32:DIM FZ(VN-1,2):REM VN = NUMBER OF VERTICES 20034 CF71 


380 FOR N=Ø TO VN-1:READ FZX(N,0),FZ(N,1) ,F(N,D) : NEXT 


00035 CF71 GET BOTH BYTES OF INTEGER POINTED TO BY 


; 

39Ø : : FET Å 
400 PRINT"XCD? ENTER X, Y, AND Z ANGLES FOR ROTATION" pig GE : M ced e ne A pp E us 
410 PRINT" (ANGLES IN DEGREES)" kant CRI È 
420 INFUT X,Y,Z 4 Š 
430 J-3.14159265/180: X=XxJ:Y=YxJ:Z=Z%J lisaja Gë x ope e 
440 XØ=COS (V) «COS(2) -SIN (X) «SIN (Y) #SIN(Z) :X1eCOS (Y) #SIN(Z) +SIN(X) *SIN(V) «COS (2) | Coos, Sei AB FB End DES 
45Ø X22-COS (X) *SIN(Y) : YOB--COS (X) *SIN(Z) : Y12COS (X &COS (A) : Y2=SIN(X) earth (EM) da Aa a 
450 ZØ=SIN(Y)ACOS(Z) +SIN(X) *COS(Y) *#SIN(Z) Gier ERU. Da åå BED ban 
470 21=SIN(Y) *SIN(Z) -SIN(X *COS (Y) XCOS (2) : Z2=COS (X) *COS (Y) daa reece EI nee ere 
480 PRINT"(CD) PERFORMING ROTATION" Ades CEIA EEF YN nii 
ET FOR: eR YG Vi doge 800465 CF7C as LOAD TAY 
500 X-PZ(N,Q) : Y-FZ (N, 1): Z=P%(N,2) EE e 
S1@ PZX(N,0)=X0@*X+X1#Y+X2*Z:FZ(N,1)=Y0*X+Y1wY+Y2WZ:PZ(N,2)=Z0xX+Z1%wY+Z2xZ: NEXT danse. CFT An ren ; 
$20 : 
530 FA=6Ø: REM TOTAL NUMBER OF FACETS keeft tree Ce es EN ipi e 
540 DIM FZ(FA/2,2) ,SH(FA/2) ,ZX(FA/2) KX(FA/2) geesi CEOs. 22 Ai brt WKTFLG 
$50 PRINT" READING CONNECTION DATA " ag cede de 64 Get en 
56Ø VF=-1: REM VF = # VISIBLE FACETS easi Fint ee 11 Pace gd 
570 FOR N=1 T 
Six ETT Td 00054 CF89 Ce FE DEC 2B+1 
TJ —— Grae EA me CPX REPEAT 
6ØØ REM CALCULATE COMFONENTS OF NORMAL VECTOR TO DETERMINE VISIBILITY es SHOP BM 52 bygden 
610 Z2=(P%(F%IVF ,2) LØ) -PX CE ONE, 1) ,Q I + PX CEZ (VF ,O) ,1) -PZCEX VE L1) ,12) bend Yi! 29 PUR 
620 Z2=2-(P%(F%(VF,Ø) ,Q -PLCEZ IE 1) LØ) I CPECEZ (VE ,2) 1) -PZCEZ (VF 1) , 10) BOBO cred’ ce ¿3 Š 
630 IF Z=<@ THEN 72Ø:REM FACET NOT VISIBLE, GO ON tn sl dj Tur ERIT 
640 Xe(PX(FX(F,2) , 1) -PZCEZ (VE 1) 41) ) & (PL (EX (VF ,Q) ,2) -PXCEX (VF ,10 ,2)) renne JA is 
650 XeX- (PX (EX (VFO) ,1) -PX CX CVE , 1) ,1)) &(PACEZ (IE 2) ,2) EL AEN QVE 12,20) ha CN ; BRE: GETINT 
662 Ye(PL(FZ(VF ,2) | 2) -PZCEZ (IE ,1) ,2)  & (PE CEZ VE, Ø) DIE (FY (VE, 1) ,0)) se ris) E. 
670 YsY-(PX(F X (FF ,0) ,22 FX (FX (IE 11) 42) ) & (PL IER (VE, 2) ØY - PX ER CUF ,10 ,Q0) petter < ; COMPARE INTEGERS OBTAINED THROUGH KEY ARRAY 
680 NC=SQR (X+X+Y*Y+Z242) : REM LENGTH OF NORMAL VECTOR en P SNE O4 NEXT” THEM SWAP KEY 
698 SH(VF)»26* (242*X*Y) /NC M. eL 3 EUEPENTG, ELSE CONTINUE 
7800 SH(VF)*(SH(VF) +64) x (SH(VF)+64) /2S6:REM RAISED COSINE SHADING WM. Du pecia Pantas scs sales 
710 GOTO 730 - 
HU der nds 90068 CF99 68 PLA 
Gem ues 000659 CFIA ES 63 SBC CRRNT+1 
24x 020078 CFS9C so o2 BVC TEST 
750 PRINT" SCALING TO DISPLAY SIZE" prime å EG EOR 4580 
760 Y=@:FOR N=Ø TO VN-1:1F ABS(FZL(N,1))>Y THEN Y=ABS(P%(N,1)) az Reeg ee TEST BPL NOSWAP 
770 NEXT:S=119/Y DI UAM A SNAP. TAA 
780 FOR N=Ø TO VN-1:P%(N,1)=S#P%(N, 1) 4 YCE PL IN, BI =S¥P% (N,Q) +XC: NEXT delis. Pra ed * ore Siesta 
790 : 
BØD REM FIND AVERAGE Z FOR EACH FACET chte oo ne e E FA T 
810 FOR N=Ø TO VF 
820 Z%(N) =(P%(FLIN,O) 42) *PXCEXCN 1) ,2) &PLCEL(N 2) ,2)) /3: NEXT deier Ee ^ i aedi e We: 
pi PRINT" SORT ING FAC CAR MOM PE 6n dt | 

EON TG ANE E 00081 CFAD 91 FB STA (KB),Y 
850 POKE 14Q,VF ' 
862 KX(Q)-KX(Q):POKE 251,PEEK(71):POKE 252,PEEK (72) pra å tens = Eo 
870 2X(0)-2X(Q):FOKE 253,PEEK(71):FOKE 254,PEEK (72) 
ALBEN dens , : 00084 CFB1 91 FB STA (KB),Y 
692 : 

(Continued on page 82) 
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FORTH: FOR Z-80®, 8086, 68000, and IBM? PC 
Complies with the New 83-Standard 

GRAPHICS, GAMES « COMMUNICATIONS ç ROBOTICS 

DATA ACQUISITION es PROCESS CONTROL 


e FORTH programs are instantly FORTH Application Development Systems 


portable across the four most popular 
microprocessors. 

e FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

e FORTH programs are highly struc- 
tured, modular, easy to maintain. 

e FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

e FORTH allows full access to DOS 
files and functions. 

e FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

e FORTH Cross Compilers are 
available for ROM'ed or disk based ap- 
plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 


include interpreter / compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M? 2.2 or MP/M Il, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M Il, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00; 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 
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An Optimizing, hassle-free 
C Compiler for the 8086-8088. 


Ecosoft's Eco-C, the performance leader among full C 

compilers for the Z80, is now available for the 8086- 

| 8088 running under MSDOS (2.0 or later). Eco-C has 

features not found in any other 8086-8088 C compiler. 

| | * Over 100 library functions. Since they follow UNIX standards, your 
| 


programs are highly portable in "both" directions ("up" to a UNIX 
machine or "down" to our Z80 compiler). This means new markets 
I for your softwore ot minimum development cost. 
x A single library. No more "dual" libraries and trying to remember 
what has to be linked with what. Your programs automatically take 
advantage of an 8087 if one is present at runtime. 
* A single floating point answer. No more "fuzzy floating point”: 
your programs produce the same answers whether the floating point 
is done in hardware (8087) or software. 
% Error messages in English. No more cryptic numbers to look up. We 
tell you where the error occurred, what was found there, and what 
should have been there. 
* Strict syntax parsing. LINT is going to uncover fewer surprises 
because our parser looks hard at the detoils. 
* Efficient code. The optimizer pass of the compiler generates 
assembler code in Intel mnemonics that rivals that produced by 
compilers costing twice as much. 


The price of the Eco-C compiler is $250.00 (all 
versions), including the user's manual, and is designed 
for use with Microsoft's MASM (or compatible) assembler 
and linker. When ordering, please specify disk format 


and whether you want the Z80-CP/M or 8088-MSDOS 


version of Eco-C. 
MasterCard | ss 
| | 
ECOSOFTØINC. VEG 


Ecosoft Inc. 
Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digital Research), Z80 (Zilog), 8086, 8087, 8088 (Intel). 


6413 N. College Avenue 
Indianapolis, IN 46220 
(317) 255-6476 
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a i 
Laboratory Microsystems Incorporated 
mm 7 Post Office Box 10430, Marina del Rey, CA 90295 Ss 
= W Phone credit card orders to (213) 306-7412 


COMPLETE SOURCES 
NO ROYALTIES 


COMPREHENSIVE C Power Packs 
include over 1000 functions which 
provide an integrated environment 
for developing your applications ef- 
ficiently. “This is a beautifully doc- 
umented, incredibly comprehensive 
set of C Function Libraries." 

— Dr. Dobb's Journal, July 1984 


USEFUL " con be used as an ex- 
cellent learning tool for beginning C 
Programmers..." 

— PC User's Group of Colorado, Jan. 1985 


FLEXIBLE Most Compilers and all 
Memory Models supported. 


RECOMMENDED ''| have no hesita- 
tion in recommending it to any pro- 
grammer interested in producing 
more applications code, using more 
of the PC capabilities, in much less 
time.” — Microsystems, Oct. 1984 


PACK 1: Building Blocks | $149 
DOS, Keyboard, File, 
Printer, Video, Async 


PACK 2: Database $399 
B-Tree, Virtual Memory, 
Lists, Variable Records 


gg PACK 3: Communications $149 
Smartmodem™, Xon/Xoff, 
X-Modem, Modem-7 


PACK 4: Building Blocks Il $149 
Dates, Textwindows, Menus, 
Data Compression, Graphics 


gg PACK 5: Mathematics | $99 
Log, Trig, Random, 
Std Deviation 


PACK 6: Utilities I $99 

(EXE files) 

Arc, Diff, Replace, Scan, Wipe 
Master Card/Visa, $7 Shipping, Mass. Sales Tax 5% 

ASK FOR FREE DEMO DISKETTE 


NOVUM BE SOFTWARE 
ORGANUM HORIZONS 
INC. B inc. 


165 Bedford St., Burlington, MA 01803 
(617) 273-4711 
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Dr. a wing on th e C-64 (Listing Continued, text begins on page 50) 
Listing Eight 


& e e 
INC FLAG 
Mans Ge Ed is NOSWAF CFX TOP Listing Nine 


00087 CFB7 DØ bé BNE LOOP2 
00288 CFB9 AS AE LDA FLAG 
eege Grep sd xb oie @2201 oppe j “WRITE” RICHARD L. RYLANDER 

; 12/30/84 

; e F THE 'KEY' ARRAY 00202 e200 5 
jorde Ge : ITS DUEIE B ned INTEGER FORMAT @2203 2200 ; REVISED 1/19/85 - ORIGIN MOVED TO $CFES (53221.) 

: ° 22084 0020 ; 
@@e93 CFBD ; AES 

d evees goga ; PUT TEXT CHARACTERS ON GRAFHIC SC 
orde wee o ne TN Co Zi @2226 2000 ; (UNDER BASIC ROM) IN VARIOUS STYLES 
00007 0209 ; 
weer OFT dA iwa mg oooga 2000 *=$CFES ; PUT CODE AFTER DOS 5.1 
painii ven Re oe gogo CFES AS ei WRITE LDA £01 ; SWITCH OUT BASIC ROM 
@201@ CFE7 29 FE AND ##FE 
00099 CFC3 BI FB LDA (KE), Y Ge, Eee ER an 
TUO -CFCS. 48 EDA 00012 CFEB AQ 07 LDY #7 
hå jagere BA FOR SG aq dd 00013 CFED Bi FD LOOP LDA (sFD),Y ; READ CHARACTER BYTE 
00102 CFC7 OA Aa Å od 00014 CFEF 31 FB AND ($FB),Y ; MODIFY W/SCREEN BYTE 
00105 ens ch vk E MP @@015 CFF1 91 FB STA ($FB),Y ; STORE IN SCREEN 
00104 CF @0016 CFF3 ; 
00105 CFCC E6 6l INC NXTFLG 00017 CFF3 ; POKE NEW LOGICAL OPERATOR TO REPLACE 
90106 CFCE Eó FC e el 00018 CFF3 ; ‘AND’ (53231.) FOR DIFFERENT STYLES 
GST. DDE. AG PTE, AV 00019 CFF3 ; ORA=17. BIT (NOP)*35. AND=49. EOR=B1. 
@21@8 CFD! 68 FLA 00050 cere $ 
0109F CFD2 91 FB STA (KE),Y 00021 CFF3 88 d DEY 
PHID FOT n" OG UM 00022 CFF4 10 F7 BPL LOOP 
m EM, R BEY CU 90023 CFF& AS oi LDA $01 ; RESTORE BASIC ROM 
@@ii2 CFD? 91 FB STA (KB) ,Y 00024 CFFS Ø? oi ORA #1 
eer ia vot 4541 eec ire 00025 CFFA 85 at STA $01 
: FFC 60 RTS 

800115 CFDD Có 41 DEC NXTFLG ci? “sees pu 
00116 CFDF Cé FC DEC KB+1 
00117 CFEi BA OK TXA 
00118 CFE2 DØ DC BNE PKLOOP Ee 
00119 CFE4 ¿Q DONE RTS ERRORS% 
009120 CFES . END 


SYMBOL TABLE 


ERRORS = ØØØ0A SYMBOL VALUE 


LOOP CFED WRITE CFES 


SYMBOL TABLE END OF ASSEMBLY 


SYMBOL VALUE 


CRRNT  Q062 DONE CFE4 FLAG OAE GETINT CF71 

INIT CF59 INLOOP  CFSB KB ØØFB LOAD CF7C 

LOOPi — CF65 LOOP2 CF&F Max OABC  NODEC  CFB8B 

NOSWAP CFBS NXTFLG 061 Ok CFE1 ORDER CF97 

ORIGIN CF5?  FKLOOP CECR REPEAT @264 SORT CF&3 

STORE ` CFDO SWAF CFA2. " YEST CFAO TOF ØØAC 

TOFDIS ØØAD UNFACK CFBD 26 ØØFD 

. ° ° 

END OF ASSEMBLY End Listing Eight End Listings 


C Source Code 
RED 


Full Screen Text Editor 


Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 


1. Matrix Storage and Operations 7. Time Series IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. 

2. Correlation and Regression 8. Nonparametric Statistics 

3: Design Analysis 9. Distribution Functions * RED is fast! RED uses all of * RED comes with a Reference 

4. Discriminant Analysis 10: Lingar Analysis your terminal's special func- Card and a Reference Manual 

z Factor Analysis 11. Polynomial Solutions tions for best screen response. that provides everything you 

6. Eigen Analysis 12. Data Screening RED handles files as large as need to use RED immediately. 
Sources Included your disk automatically and 


* RED is unconditionally 


$295 00 quickly. guaranteed. If for any reason 
“ ° RED is easy to use for writers you are not satisfied with RED 
or programmers. RED's com- your money will be refunded 
FORLIB-PLUS"" mands are in plain English. promptly. 


* RED comes with complete 
source code in standard C. RED: $95 
RED has been ported to main- s 
frames, minis and micros. Manual: $10 


Contains three assembly coded LIBRARIES plus support, 
FORTRAN coded subroutines and DEMO programs. 


The three LIBRARIES contain support for GRAPHICS, 
COMMUNICATION, and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library, there are routines which will permit interrupt 
driven, buffered data to be received. With this capability, 9600 
BAUD communication is possible. The file handling library contains 


Call or write today for 
for more information: 


Edward K. Ream 


all the required software to be DOS 30 PATHNAME compatible. Tank Wan 1850 Summit Avenue 
| Madison, WI 53705 
STRINGS & THINGS™ (608) 231-2952 
Support for CHARACTER MANIPULATION (string support), To order: 
SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. Either the BDS C compiler or the Aztec CH compiler is required for CP/M80 
systems. Digital Research C compiler v1.1 is required for CP/M 68K systems. No 


compiler is required for IBM or Kaypro systems. 
Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 
described (8 inch CP/M single density or exact type of 5'4 inch disk). 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, I do 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders 
unless a check is included. Your order will be mailed to you within one week. 


$69.95 each 


P.O. Box 2517 Á ALPHA 
Cypress, CA 90630 > serve? (714) 894-6808 
California residents, please add 6% sales tax. 


Versions available for IBM Professional Fortran 
or MICROSOFT 3.2 Fortran 


Dealer inquiries invited. 
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JOIN US 
AT NCC'85 


Today's Access Code 
to Tomorrow's Technology. 


Featuring Keynote Speaker Admiral B.R. Inman. 
NCC '85, July 15-18, Chicago, Illinois. 


The "Leading Edge" conference... 


Don't miss the 1985 National Computer 
Conference, July 15-18 at McCormick Place 
and McCormick Place West, Chicago, Illinois, 
a key industry forum for new product and 
services introductions. 


NCC '85 features a Keynote Address by 
Admiral B.R. Inman, President and CEO of 
Microelectronics and Computer Technology 
Corporation of Austin, Texas. 


His topic, "Managing the Creation and 
Commercialization of Technology" will 
deal with the industry-wide challenge of 
converting technical advances into com- 
mercial successes. 


A challenge everyone in the information 
technology field faces. 


More than just a trade show... 


At NCC '85 you get more than just exhibits. 
You can attend informative Technical 
Sessions on subjects such as artificial intel- 
ligence and software systems. You can also 
attend Professional Development Seminars, 
and special events like Pioneer Day and our 


Technology's Expanding Horizons 


Name 


Early Bird Reception. Plus, you can explore, 
experience and exchange ideas while 
gathering important information for future 
buying decisions. 

Top names in the industry will be there— 
like IBM, Cullinet and McGraw Hill—show- 
casing their latest innovations and hottest 
new developments. 


Whatever your special interest or area of 


expertise, you'll find the state-of-the-art in 
hardware, software and services at NCC '85! 


Tomorrow's technology is just a 
phone call away... 


To attend NCC '85 all you have to do is pick 
up the phone and call toll-free 800-NCC-1985. 
(Or fill out the coupon below.) And, if you 
register early, you get a $25 discount on the 
Full Conference Registration fee! 

Don't miss this opportunity to be on the 
"Leading Edge." Plan on attending NCC '85! 


CALL TOLL-FREE 800-NCC-1985 
(Or fill out the coupon below.) 


1985 National Computer Conference 


O Yes! I want to attend NCC '85. Please send me a registration form today! 


Title 


Company 


Address 


City 


Mail to: NCC '85 - 1899 Preston White Dr. - Reston, VA 22091 


State Zip 


TB 


OR CALL TOLL-FREE 800-NCC-1985 AND REGISTER TODAY! visa, MasterCard, and American 
Express accepted. Register early and save $25! 
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A Compiler Written in Prolog 


by G. A. Edgar 


hy would anyone write a 
VV eoi: in a language 
like Prolog? Actually, the 


compiler seems to have come out 
rather well. I wrote it primarily as 
a learning exercise for Micro- 
PROLOG. 


Micro-PROLOG 

I first heard of the Prolog program- 
ming language in connection with the 
Japanese effort to develop the "fifth 
generation" in computing. At the 
time, I read a few things about Pro- 
log, such as the book by Clocksin and 
Mellish.! My impression was that 
Prolog is an interesting language (I 
was right), but that it probably is not 
practical to implement PROLOG on a 
microcomputer (was I ever wrong!). 


substantial effort for a programmer 
experienced only in Pascal, C, or PL/ 
I. The tutorial? is published separate- 
ly as a book; if you are curious, it 
should be available in most large uni- 
versity libraries. 

After I began to get a feel for the 
language, I used it to solve a few logic 
puzzles. For example, Lewis Car- 
roll's logic book? includes some puz- 
zles at the end as a teaser for a later 
book that was never published. They 
are much too complicated to solve 
simply by common sense reasoning, 
but I can now say definitively that 
"All of the Monitors are awake." 

If Prolog were good only for logic 
problems, it would not be of wide in- 
terest. So I looked around for some 
other relatively easy task to use as a 


The early returns on our March special issue on 
Prolog are encouraging —so much so that we're 
offering this excursion into programming in logic. 


D. E. Cortesi, in "Dr. Dobb's Clin- 
ic" for May 1984, gave a half-page 
description of Micro-PROLOG. I 
wrote for information on it and by 
July was running it on my CP/M Z80 
computer. Micro-PROLOG is also 
available for MSDOS, PCDOS, CP/ 
M-86, and Unix. 

Micro-PROLOG comes with an 
IBM PC-size loose-leaf manual with 
more than 200 pages. This is a com- 
plete reference to the language but 
not a good tool for learning. Micro- 
PROLOG, however, also comes with a 
400-page soft-cover tutorial, which is 
a good place for a beginner to start. 
Learning the language will take a 


G. A. Edgar, 107 W. Dodridge St., 
Columbus, OH 43202 


programming exercise. A compiler 
for VALGOL fit the need nicely. It 
improved my understanding of Mi- 
cro-PROLOG and my understanding 
of what a compiler does. 

This compiler is described below. 
It translates VALGOL I, also de- 
scribed below, into 8080 assembly 
language. Of course, you would learn 
more by undertaking such a pro- 
gramming project yourself than you 
will by examining mine, but it serves 
as proof that you can use Micro- 
PROLOG for something unexpected. 


Using Micro-PROLOG 

Before I describe the compiler, let me 
give a brief description of how Micro- 
PROLOG differs from other versions 
of Prolog. 
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Upper- and lower-case letters are 
considered different, and the hyphen 
is treated like a letter. Variables are 
X, Y, Z, x, y, z, or one of these six 
letters followed by a positive integer, 
such as X132 or z22. Other strings of 
letters and numbers are identifiers 
for constants. 

Micro-PROLOG consists primarily 
of a pattern matcher, plus a few other 
built-in routines, such as a routine for 
I/O. The way Micro-PROLOG looks 
depends on which of the front ends 
you are using. Each front-end pro- 
gram is written in Prolog. If you are 
using the SIMPLE front end, one- 
place predicates can be given either 
in prefix form 


alphanumeric(X) 
or in postfix form 
X alphanumeric 


Two-place predicates can be given ei- 
ther in prefix form 


LESS(Q) X) 
or in infix form 
(9 LESS X 


Predicates with three or more argu- 
ments must be in prefix form. Thus, a 
Prolog program entered via SIMPLE 
tends to look like this: 


labelused (0) 

X alphanumeric if X alphabetic 

X alphanumeric if X digit 

X alphabetic if @ LESS X and X 
LESS [ 

X alphabetic if * LESS X and X 
LESS ( 


One useful object in Micro-PRO- 
LOG is the list. The notation for a list 
is to enclose the items between paren- 
theses: (A B C 1 2 3). Some of the 
items might be lists themselves: (A 
(BC) 23)). 

The 16-bit versions of Micro-PRO- 
LOG include a front-end supervisor 
that imitates the DEC-10 Prolog: 


labelused(0). 
alphanumeric(X) :- alphabetic (X). 
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alphanumeric(X) :- digit(X). 


The form in which an operator is used 
is declared using the types fx, xf, xfy, 
and so on (see Clocksin and Mellish, 
page 91). DEC-10 lists are built using 
square brackets: [a,b,c]. 

The standard Micro-PROLOG syn- 
tax simply uses lists. In this regard, it 
is somewhat like LISP. The list 
(labelused 0), which indicates the 
predicate name *'labelused" applied 
to the argument *0,” is an example of 
an atom. A clause is a list of atoms. 


You add things to the data base in 
this way: 


((labelused 0)) 
((alphanumeric X) (alphabetic X)) 
((alphanumeric X) (digit X)) 


This may seem confusing at first, but 
after a while it becomes more or less 
routine. 

This minimal introduction to the 
Micro-PROLOG interpreter should 
be enough for you to gain some un- 
derstanding of the VALGOL compil- 


e We have over 300 
complete, tested, and, documented functions. 


All source code and demo programs are included. 


e The library was specifically designed for software 
development on the IBM PC. XT. AT and compatibles. There are no royalties. 


€ Over 95% of the source code is written in C. Experienced programmers 
can easily "customize" functions. Novices can learn from the thorough comments. 


We already hare the functions you are about To mute 


Concentrate on software development— not writing functions. 


THE C UTILITY LIBRARY includes: 


e Best Screen Handling Available e Windows € Full Set of Color Graphics 
Functions & Better String Handling Than Basic € DOS Directory and File Man- 
agement e Execute Programs, DOS Commands and Batch Files e Complete 
Keyboard Control e Extensive Time Date Processing * Polled ASYNC 
Communications € General DOS BIOS gate e Data Entry e And More e 


e The Library is compatible with: Lattice. Microsoft, Computer Innovations, Mark Williams 
and DeSmet. Available Soon: Digital Research, Aztec and Wizard. 


C Compilers: Lattice C — $349. Computer Innovations C86 — $329; Mark Williams C — $449. 


C UTILITY LIBRARY $185. Special prices on library & compiler packages. 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ground, $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card. Visa, 


check or P.O. 


ESSENTIAL SOFTWARE, INC 
PO.Box1003 Maplewood, New Jersey 07040 914 762-6605 
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er, but you will need a much more 
complete knowledge of Micro-PRO- 
LOG to understand all of the details. 


VALGOL I 
The language VALGOL I (very small 
ALGOL?) is a derivative of ALGOL- 
60. D. V. Schorre described it in 1964 
as a sample language for the compil- 
er-writing language META II. His 
paper^ was reprinted in Dr. Dobb's 
Journal (April 1980), which is where 
I found it. I had worked with VAL- 
GOL I in connection with the compil- 
er-writing language Meta4 (in a 
SIG/M disk), so it seemed natural to 
use it for the same thing in Prolog. 

VALGOL I has a few peculiarities. 
The keywords that usually are type- 
set in boldface here are preceded by a 
period ( .begin, .end, .if, .then, .else, 
.until, .do, .integer). This also applies 
to the equals sign for comparing two 
expressions ( .— ). VALGOL I has 
only one data type, namely .integer, a 
16-bit two's-complement number. 
The assignment statement is the re- 
verse from the normal order ( 5 =: x 
assigns the value 5 to x ). Arithmetic 
allows addition, subtraction, and 
multiplication, but there is no unary 
minus sign, so if you want —2 you 
must write either 0 — 2 or 65534. 

A more complete description of the 
syntax appears below in the descrip- 
tion of the compiler. 


Using the VALGOL I Compiler 

The VALGOL I compiler is in a file 
called VALGOL.LOG. A typical use, 
to compile the short VALGOL pro- 
gram in the file P.VAL, is shown in 
Listing One (page 89). The com- 
mand shown is in the standard Mi- 
cro-PROLOG syntax. If the SIMPLE 
front end is also loaded, you could use 
the command: 

is(^P. VAL" compile *P.ASM”) 

The compiler prints out the input file 
P.VAL on the console as it works. The 
result of the compilation in the sam- 
ple is P.ASM, included here as Listing 
Four (page 96). 

If you are familiar with the Intel 
mnemonics for the 8080, you may 
find it instructive to compare the 
VALGOL input with the assembly 
language output to see how the com- 
piler works. 
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The VALGOL Definition 

Take a look at the compiler in Listing 
Two (page 90). I have repeated part 
of the compiler using the SIMPLE 
syntax in Listing Three (page 96). 
SIMPLE is unsuitable for the com- 
plete listing for several reasons. In a 
few places in the compiler, I have 
used *meta-variables," which are not 
supported by SIMPLE. A SIMPLE 
listing also would not keep the com- 
ments and the formatting, making it 
confusing to read. So try to under- 
stand instead the list notation used 
for the standard syntax of Micro- 
PROLOG in Listing Two. 

The lists preceded by a ? are to be 
executed immediately when they are 
loaded; the others are to be stored in 
the data base. Because the predicate 
symbol ( / * ) is a special one that is 
always true, a list in the file of the 
form 

?(( / * anything goes here )) 
will serve as a comment. (This is a 
clumsy feature of Micro-PROLOG.) 

The compiler listing is in two parts. 
The first part is independent of the 
particular syntax of VALGOL I and 
could be used equally well with many 
other programming languages. The 
second, below a horizontal line, is a 
VALGOL-specific part. In one sense, 
the part above the line implements an 
interpreter that runs the compiler de- 
scribed below the line. Let's examine 
a portion of the VALGOL-specific 
part of the code. 

The message line, like all these 
lines, becomes a statement in the Pro- 
log data base. The predicate symbol 
of the statement is “message,” and 
the single argument is the string en- 
closed in quotation marks. The com- 
piler will look for a message fact in 
the data base and print it out when a 
compilation starts. 

The next line is the syntax line. 
This tells the compiler that the pri- 
mary unit of syntax is the program. 

The next statement is a description 
of a program. First comes the keyword 
.begin. When this is matched, seven 
opening lines are sent to the output file. 
(I have put the VALGOL syntax de- 
scription on the left-hand side of the 
page and the ASM output description 
on the right-hand side. A VALGOL I 
compiler for another processor would 


keep the same left-hand side and 
change the right-hand side.) Then an 
opt-declaration (optional declaration, 
see below) is followed by one or more 
statements separated by semicolons. 
The multiple predicate allows match- 
ing of its arguments zero or more times. 
Finally comes the keyword .end. When 
this is matched, the final JMP is insert- 
ed in the output file, followed by the 
four subroutines and the stack space. 

The opt-declaration could be a dec- ` 
laration followed by a semicolon, or (if 
that cannot be found) it could be emp- 
ty, which matches the input file auto- 
matically. Inclusion of the “empty” al- 
ternative is a way to allow for no 
declaration. A declaration is the 
keyword .integer, followed by one or 
more identifiers separated by commas. 
For each identifier, the output file re- 
serves a two-byte storage location. 

A statement is one of the following: 
(1) An I/O statement, either 


edit( expression , 'string' ) 


which will send (expression) spaces 
and then the (string) to the console, 
Or 


print 


which will send an end-of-line to the 
console. 
(2) An assignment statement: 


expression =: variable 
(3) A loop: 


.until expression 
.do statement 


A value of zero for the expression is 
considered false, and a nonzero value 
is true. 

(4) A conditional statement: 


Af expression 
.then statement 
.else statement 


The .else is not optional. 

(5) A block, which consists of the 
keyword .begin, followed by an op- 
tional declaration, followed by zero 
or more statements separated by 
semicolons, followed by the keyword 


Dr. Dobb's Journal, May 1985 


Were gett 


hardnosed 
ay. 


From now ^ MATIS is only $4995! 


(MATIS, the complete User Interface development tool has been selling for $150.) 


Why the radical price cut? 
We decided after looking over the compe- 
tition that MATIS had so many advan- 
tages it should be made available to more 
programmers. We decided to compete 
aggressively so you could easily afford to 
have MATIS in your bag of tricks. We 
hear from MATIS users in the USA and 
France that it is a truly loveable product. 
5000...we're running this big ad to pro- 
mote our new low price. 


MATIS windows are beautiful. 
Display any portion of any screens you 
create at any point in your program. 
Scroll in any direction manually with cur- 
sor keys...or automatically. 


And the screens are 
HUMUNGEOUS! 

MATIS screens can be just about as big as 
you want...up to 65,534 rows by 
65,534 columns! The number of screens 
is only limited by available memory. 


Print big MATIS screens directly. 
One command sends your screens to your 
printer with no need to program special 
routines when your virtual screen is big- 
ger than your terminal screen. 


User input fields are a snap. 
Creating fields for data entry is easy with 
no limit to size or number by screen. 
Request for input 

separately or 

in blocks. yy 


Copies of MATIS at $49.95 plus 
$3 shpg. 


Copies of MATIS/T for TURBO 
PASCAL at $29.95 plus $2 shpg. 


California residents, add 612% sales tax 


[ ] | like to read specs, so 
send me a folder. 


Total $ 


Denis Moran 
President, Softway, Inc. 


Control your keyboard 

with MATIS. 

It Keeps track of keys that are pressed 
during the execution of your program 
and lets you assign specific functions to 
selected keys. 


Control that screen too! 

MATIS is extremely versatile and flexible 
when it comes to controlling lines, col- 
umns, fields, and text. They can be modi- 
fied, transferred, displayed or moved 
with a single command. All video attri- 
butes are supported: color, reverse video, 
blinking...you name it, you got it. 


Want an interactive 

screen builder? 

You've got it with MATIS. It's called 
"MATPAGE" ™ and it lets you create 
and modify any of your screens in an 
interactive mode. 


Softway, Inc. 


24-Hour Credit Card Orders By Phone: 


1 (800) 227-2400 EXT 989 cari 11800)772-2666 ExT989 


Please ship the followina at once. | understand there is a 30-day money back guarantee. 


MATIS adds over 70 routines 

to your program. 

Written in Assembler, MATIS routines 
are fast and powerful giving your pro- 
gram improved efficiency and enhanced 
visual appeal, while they reduce its size 
and maintenance worries. And MATIS 
separates screen design from the core 
of your program. 


MATIS is unique. 
We don't think there's a single program 
that combines as many tools in one 
package as completely or as well as 
MATIS. It interfaces with Intepreted and 
Compiled BASIC (Microsoft), C (Lattice, 
Microsoft, Aztec), PASCAL (IBM, Micro- 
soft) and ASSEMBLER. All you need 
is an IBM* PC/XT or true compatible 
under DOS, 128k or RAM, monochrome 
or color monitor. 

You get an easy to follow no-frills 
manual and a 30-Day Money Back 
Guarantee. 


Late News: 
MATIS/T " for TURBO-PASCAL** 
only $29.95 


An indispensable add-on at a dynamite 
price. What more can we say? 


_ Decu's 


Denis Moran 


" MATIS, MATIS/T, & MATPAGE are Trademarks of Softway, Inc. 
*|BM is a Reg. Trademark of IBM Corp. 
**Turbo Pascal is a Reg. Trademark of Borland International 


500 Sutter Street, Suite 222 E 
San Francisco, California 94102 
(415) 397-4666 


Name Z=; AMEN S Fo Sor a a ET planke De det est desse bird de 


Address (please no P.O. Box) 
City/State/ZIP 


Phone 


Signature 


Make payment by money order, check, or charge card [] visa Å] MASTER CARD 


Number 


Exp. 


Distributed in Europe By: MICRO APPLICATION SOFTWARE * 147 Avenue Paul Doumer, 92500 RUEIL MALMAISON FRANCE, Tel (1) 732.92.54 
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.end. The null statement 
.begin .end 


is allowed. 
The following test for equality is 
allowed: 


expression .= expression 


This has value I if true and 0 if false. 
Expressions can be built up from 
variables, numbers, the operations 
+,-, *, and parentheses. Notice how 
the syntax near the end of Listing 
Two is arranged to take into account 
the precedence of these operations. 


The Language-Independent Part 
Now let's look at the first part of 
Listing Two (part of this is repeated 
in SIMPLE syntax as Listing Three). 
When Micro-PROLOG attempts to 
verify a compile atom, it looks first in 
the data base for a message fact; if it 
finds one, it verifies the assertion (P 
x), which is always true but which 
has the side effect of printing x on the 
console. The assertion PP is also al- 
ways true and starts a new line at the 
console. The compile atom continues 
as it prints X — Y, where X is the 
first argument (presumably the file- 
name of the VALGOL input file) and 
Y is the second argument (the ASM 
output file). 


ww" 68000 a 


Tools 
68000/68010 Assembler Package 


Assembler, linker, object librarian and extensive indexed 
typeset manuals. 


Conforms to Motorola structured assembler, publication 
M68KMASM[4]. Macros, cross reference and superb load 
map, 31 character symbols. 

Optimized for CP/M-80, -86, -68K, MS-DOS, PC-DOS .. $595 
Portable Source written in “C” 


Complete 68000 Development Package 
for MS-DOS 
Lattice 68000 “C” Compiler and 
Quelo 68000 Assembler Package ............... $1095 


68200 Assembler Package 
Assembler and linker for Mostek MK68200. 


Optimized for CP/M-80, MS-DOS, PC-DOS 
For more information contact Quelo Inc. 

2464 33rd W. Suite #173 
Seattle, WA 98199 
Phone (206) 285-2528 
COD, Visa, MasterCard telex II (TWX) 9103338171 


CP/M, TM DRI. MS-DOS TM Microsoft. PC-DOS TM IBM. 


Patrick Adams 
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Next the compiler deletes all facts 
about "labelused” (which may be left 
from a previous compile) and starts 
over with (labelused 0). It does some- 
thing similar with "last-shown,” 
which keeps track of how much of the 
file has been shown on the console. 

Then the compiler opens the input 
file X and adds a fact to the data base 
so that later it can find the name of 
the input file. Similarly, it opens the 
output file Y. It skips white-space 
characters in the input file, starting 
at the beginning and ending at loca- 
tion Z1 (x in Listing Three). Then it 
finds the syntax fact to tell it what to 
start compiling with and feeds that to 
the Q routine, which carries out the 
actual compile. 

Finally, the compiler closes the 
files and prints out a concluding mes- 
sage. If compilation fails for some 
reason, control goes to the second 
compile clause, and it prints out the 
error message. 

Now look at Q. This short routine 
implements the recursive-descent 
compile, according to the code in the 
last half of the compiler. The first 
two arguments are the before and af- 
ter file positions for both the input 
and output files. Whenever Q has to 
backtrack, the files automatically are 
rewound to the appropriate point for 
another try. 

Notice the use of the variable Z 
(the third argument of Q) as the 
predicate symbol in a search of the 
data base. This is called a "meta- 
variable" in Micro-PROLOG: the 
name of the predicate to be verified is 
supplied as a variable, not as a con- 
stant. This powerful feature of Mi- 
cro-PROLOG may not be available in 
other Prologs. The X1 after the verti- 
cal line, which indicates the rest of 
the list, is another meta-variable. The 
remainder of this half of the code 
comprises various subroutines for use 
in the compile. 

This is a very brief description of 
only a small part of this compiler. A 
complete understanding requires a 
greater familiarity with the many 
features and quirks of the Micro- 
PROLOG package. 


Conclusion 
The compiler shown in Listing Two is 


written in the standard syntax of Mi- 
cro-PROLOG. As such, it should run 
under any version of Micro-PRO- 
LOG. I would be interested in hearing 
from readers who get it to work under 
other versions. (Of course, the output 
would still be in 8080 assembly 
language.) 

This compiler runs rather slowly. 
The common belief is that interpreters 
are slow, and this is an interpreter 
within an interpreter. The 10-line 
sample compilation in Listing One 
takes about 30 sec on my 4 MHz Z80. 
Because I wrote the compiler primari- 
ly as a programming exercise, I have 
not been overly concerned with a rem- 
edy for the speed problem. Probably 
the bottleneck occurs in the input rou- 
tines that process one character at a 
time. For a faster compiler, routines 
such as match, id, or number would be 
recoded in assembly language. The 
Micro-PROLOG manual has instruc- 
tions on how to link such new built-in 
functions in assembly code with Mi- 
cro-PROLOG. 
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Compiler in P r olog (Text begins on page 84) 
Listing One 


Use of the compiler 


B>PROLOG LOAD VALGOL 


micro-FROLOG 3.1 for RML 380/4802 29/03/84 
(c) 1984 Logic Frogrammirna Associates Ltd. 
38517 Bytes Free 


&R.?CCcompile "P.VAL" "F.ASM")) 
UALGOL I compiler - translates UALGOL to ASM 
F.VAL ~: F.ASM 


(begini 
«integer xj 
ei xj 

»untilow ve 15 do 
«begin 
edit (1+14vx-xx:, "Eih? 
print; 
Mtl =f 
«end 

+end 


xx Compilation of UF YAL" complete xx 
& QT, 


E ASM F.EEZ 


CP/M ASSEMELER - VER 2.0 
01F7 

001H USE FACTOR 

END OF ASSEMELY 


BALOAD F 


FIRST ADDRESS 0100 
LAST ADDRESS O01F6 
BYTES READ 00E9 
FECORDS WRITTEN 02 


EF 
+ 
E 
EZ 
* 
+ 
+ 
+ 
ab 
>» 
ag: 
+ 
+ 
^ 
+ 
type ps. val 
begin 
,inteoer x j 
DU si x j 
(until x ve 9 +20 
begir 
emit, < ux.» A "Zb E? 
print `? 
i Je ER 
Eri 
erd 
Arp 
+ 
+ 
+ 


Dr. Dobb's Journal, May 1985 


Thunder Software 
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APPLE Pascal 1.1 or 1.2 operating system øf ProDOS. 
Create fast native 6502 programs to run and alone 


programs or as subroutines to Pasca ams. Å major 
subset of the C defined by K & R. ës a users guide, 
newsletters, Macro preprocessor, tuns on APPLI H 


I[+, //e, //c. Source code før libraries is included. 
Only $49. 35 


ei "LINKIT - Structured APPLESOFT processor. No 
more line numbers. Only $39.95 
POB 31501 Houston Tx. 77231 
713-728-5501 
Visa, Mastercard, COD, checks accepted 
Add $3.00 for P&H 
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NOW C HERE! 


CROSS SOFTWARE 
for the NS32000 


Also Available for IBM PC 
INCLUDES: 


* Cross Assembler * 
* Cross Linker * 
* Debugger * 


* N.S. ISE Support * 
* Librarian * 


* Pascal Cross Compiler * 
* C Cross Compiler x 


U.S. prices start at S500 


SOLUTIONWARE 
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Suite B 
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End Listing One 


(Listing Two begins on next page) 
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Compiler in P r olog (Listing Continued, text begins on page 84) 
Listing Two 


VALGOL.LOG 


?(( /X 
VALGOL «LOG 
Compiler for VALGOL I -- ver, 1.2 


Written in Micro-FROLOG. 

(Tested with Micro-FROLOG version 3.1 for CP/M-80) 

Translates VALGOL I to ASM-compatible 8080 assembly languages 
Uses file SEEKs for backtracking, 


written byt G, A. EDGAR status? public domain 
0.3 September 9, 1984 M80, Z80 
1.0 September 16, 1984 output for ASM 
141 November 1, 1984 display input 
1.2 November 10, 1984 version for DDJ 


Usage - in SIMFLE syntax? 
&.is("FOO.VAL" compile "FOD,ASM") 
- in standard syntax? 
&.?((compile "FOO.VAL" "FOO.ASM")) 


TEL ON eee ae ee Language independent part --------------- )) 


?(( /* compile? input X, output Y)) 
(Ccompile X Y) 
(message x) (P x) (FP) (PX "->" Y) (FP) (PP) 
(KILL labelused) (ADDCL ((labelused 0)) ) 
(KILL last-shown) (ADDCL (Clast-shown (-1|-1))) ) 
(OFEN X) (KILL infile) (ADDCL ((infile X)) ) 
(erase Y) (CREATE Y) (KILL outfile) (ADDCL ((outfile Y)) ) 
(skip ((<010)140010)) Z1 D (syntax Z) (Q Z1 Z =z) 
(CLOSE X> (CLOSE Y) 
(FF) (FF xx Compilation of X complete Xx)) 
((compile X Y) 
(FP) (FF xx Syntax error XX) 
(CLOSE X) (CLOSE Y) 
(OC X Y 
(compile X Y)) 


?(( /X Qi find it in the lanquage-specific database)) 
CCOUSX- Y 25 

(Z | X1) (sequential X Y | X125) 
((sequential X X)) 
((sequential X Y (z|Z)|s) 

(z X X11Z) / (sequential X1 Ylu)) 


?(( /X out? send a line to outfile)) 
(Cout (vllzi) ((GS311Iz2) | XD 
Couns i ie. Z) (SEEK Z 2093 toute Z. | X) 
Coutx Z2 "^M^J") «SEEK Z z2)9) 
(Coutx Z)) 
(touts Z X 1. x) 
LEARN Go NTT 


?7(( /X match? the input matches string Z)) 
((Match X Y Z) 


(STRINGOF Zi Z) / (match X X2 ZI) (skip X2 Y)) 
((Matchx X Y (:12)) 

(inchar X X1 si (EU se sti / (natchx X1 Y ZJ) 
((Matchx X X ())) 


?(( /X empty! matches automsticalls)) 
(Cempty X X?) 


"7(( /X multiple! match the following zero or more times)) 
((multiple X Y|Z) 
(once X X11Z) / (multiple X1 YIZ)) 
((multiple X X]Z)) 
(Conce X X)) 
(tonce X Y (z1Z)]%) 
(zx X REZ) / tonce- KV) 


?(( /X label? generate s new label)) 

(Clabel X X Y) 
(labelused Y1) (SUM Y1 1 Y) (KILL labelused) 
(ADDCL ((labelused Y)) )) 


90 


(Continued on page 92) 


Dr. Dobb's Journal, May 1985 


Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. 


$49.95 plus tax delivers Write-Hand-Man and 4 


companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 


Other CP/M products available from Poor Person Software: 
Poor Person's Spooler ($49.95), Poor Person's Spelling Checker 
($29.95), Poor Person's Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person's Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 
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Indexed File Manager 


using 
$752 
B-Treeg =: 


source included 
C Programmers, we provide the record handling that 
C left out. 


The SOMfOCUS RTree library is a record oriented function pack- 
age that uses balanced BTree indexing for guaranteed fast 
access. Add our functions to your C library and greatly reduce 
application development time. 


e High speed keyed and sequential file handling. Up to 
16.7 million records per file. 

e Source code supplied; conforms to K&R standard to 
ensure portability. 

e Noroyalties on application programs. 

e Documentation and example programs included to help 
you use BTrees. 


e Full feature product at a fraction of the cost of 
competing BTree software. 


Join the growing number of satisfied programmers using 
BTrees. 


To order call 


1277 Pallatine Drive 
Oakville, Ontario L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 
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WIZARÖ C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


ALL UNIX SYSTEM III LANGUAGE FEATURES. 

UP TO A MEGABYTE OF CODE OR DATA. 

SUPPORT FOR 8087 AND 80186. 

FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
CROSS-FILE CHECKS OF PARAMETER PASSING. 

USES MSDOS LINK OR PLINK-86. 

CAN CALL OR BE CALLED BY PASCAL ROUTINES. 
IN-LINE ASSEMBLY LANGUAGE. 

240 PAGE MANUAL WITH INDEX. 

NO LICENSE FEE FOR COMPILED PROGRAMS. 


The new standard for C Compilers on MSDOS! 


Only $450 


For more information call (617) 641-2379 
Wizard Systems Software, Inc. 

11 Willow Ct., Arlington, MA 02174 
Visa/Mastercard accepted 


WSS 
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TURBO ASSEMBLER 


Introducing FAST ASSEM-86™, the TURBO PASCAL" of IBM PC assemblers. 
FAST ASSEM-86™ (FASM) is significantly faster and easier to use than the IBM 
Macro-Assembler (MASM). Whether you are new to assembly language and want to 
quickly write a small assembly language routine, or are an experienced MASM user 
tired of waiting months to assemble large files, FAST ASSEM-86 will bring the 
excitement back to assembly language. 


FAST ASSEM-86 IS MUCH FASTER: 

e How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM's doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 
FASM™ (110 sec.) www 
MASM oT se ene ea ee eT 

e FAST ASSEM-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 


in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can be 
created directly. (Also creates .OBJ files compatible with the IBM linker). 


FAST ASSEM-86 IS EASIER TO USE: 


FASM includes many other features to make your programming simpler. 


Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


Access the built in cross reference utility from the editor. 
Full support of 186 and 286 (real mode) instructions. 


Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


Calculator mode: Do math in any radix even using symbols from the symbol table. 
Direct to memory assembly feature lets you test execute your code from editor. 
Coming soon: A coordinated symbolic debugger. 

COMPATIBILITY: FASM is source code compatibile with MASM and supports macros, 

records and structures. 
Introductory Price $49 
With .OBJ Capability $99 
Box D2, 2931 Northrop Avenue 


Sp eedwa r e Ve Sacramento, CA 95825 


IBM, Turbo Pascal, Microsoft trademarks of IBM Corp., Borland Intern., Microsoft Corp. 


Dealer inquires welcome 
916-966-6247 
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Compiler in P. r olog (Listing Continued, text begins on page 84) 
Listing Two 


?"(( /X string? match a string quoted within characters x)) 
((strino X Y x Zi 
/Á tinchar X X2 sii (EG > X1) Z 
(strings XZ X3 «2150 (skip X3 Y) CSTRINGOF Z1 Z)) 
Ctstrings. X Y x.(9) 
,fAnehar X 15544) (ED X 012 2-2) 
(Cetrines X Y x03 | 73) 
(inchHaár X X1 9) Z tetrinsv X1 Yo» Z)) 


?(( /x idi match an identifier)) 
(Cid X Y Z) 

(id« X XZ Z1) (skip X2 Y) (<STRINGOF Z1 ZX) 
tids X Y (xIzZ») 

(inchar X X1 x) (alphabetic x) / (alphanum X1 Y Z)) 
(Calpharnum X Y (x12) 

(inchar X X1 x) Calpharnumeric x) / (aslphanum X1 Y Z)) 
(Calphanum X X (9)) 


?(( /X number? match a number)) 
((riumber X Y Z) 

/ &(numberx X X2 21) 

(NOT EQ Z1 (9) (skip X2 Y)? (STRINGOF Z4 Z)) 
((rumber»s X Y ¢x1Z)) 

(inchar X X1 x) (diait x) Z (numbers X1 Y ZY) 
(CCriuMmberx X X-€C))) 


(Calpharumeric x) 
(alphabetic x)) 

( (alphanumeric x) 
(digit x2) 


(Calphabetic x) 
(LESS "B" 4«QILESS x "L"5) 
((alphabetic x) 
(LESS ">" xJXLESS * 


- 


nanny) 


((digit x) 
(LESS "f" O4LESBS. «x .":1")) 


?(( /X skip! skip over characters listed as "skipchar")) 
((skip X Y) 

Cincher: X Xl ») (skipehar 0-/ (skip X1 YO) 
((skip X X)) 


((skipchar " ")) 
((skipchar UA L) 
((skipchar "*J")) 
((skipchar "^M')) 


?(( /X inchar}? input one character, show on console first time)) 
(Cincher (yl|z1) (S2|z1)5 x) 
(infile Y) (SEEK Y 41) (RDCH Y x) (SEEK Y 42) (last-shown S3) 
(IF (before 43 42) 
(CP x) (KILL l3st-shown) (ADDCL ((lasst-shown 42)) )) 
LKA? 


?(( /X before? compare tuo file positions )) 
((before (4yl|zi) (s11Iz2)) 

/ (LESS zi 22)) 
((before (4l|z1i) (42|1z2)) 

(LESS vol 42)) 


?(( /x erase; erase a file, no failure)) 
((erase Y) 

(ERA YO /) 
(Cerase Y)) 


?(( /X ——— VALGOL specifics o = = m m m m m m m M e m e e e e e e e m )) 


((message "VALGOL 1 compiler - translates UALGOL to ASM")) 
((syntax FROGRAM)) 


( CFROGRAM 

(match ".begin") (out "UCFM EQU WS? 
(out "VEDOS ERU > 
(out "UTFA EQU 256") 
(out "VER EQU T3"3 
(out "ULF EQU 10") 
(out " ORG VTFA") 
(out LXI SF,VSTACK") 


(Q OFT-DECLARATION) 
(Q STATEMENT) 
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(multiple 
(Match '"j') 
(Q STATEMENT)) 


(match "send") (out " JMF WEFT) 

Cout "UMULTt") 
(out " MOU EH") 
(out A MOV ek SD 
(out h XRA a") 
(out " MOV H,A") 
(out " MOV TM 
(Qut S MUI 65,16") 
(out “VMULT13 PUSH FSK") 

(out " DAD HH") 
(out s XRA ^") 
Cout 2 MOV A,C") 
(out d RAL") 
Cout " HOM ` C,A") 

e (out > MOU AJ, EE") 
(out 3 RAL") 
(out " MOU EA") 
(out " JNC UMULT2") 
(out " DAD D") 
(out. "VMULTZT “Por FSW") 

| (out " DCR A") 

| (out ei ORA A") 

| (out JNZ UMULT1") 
(out ve RET") 
(out "VEDITS") 
(out K MOU A,H") 
(out y ORA L^" 
Cout " JZ UEDIT1") 
(out T MUI Ay” 7") 
(out $ CALL. UCFMQUT") 
(out " DCX H) 
(out ve JMF VEDIT”) 
Cans: ."UEDITIIT.  ^rUF H") 
(out. "UEDITZ2! MOV A M") 
(out « CFI "Wéi 
(out " INX H” ) 
(out og JZ VEDIT3") 

x (out " CALL VCFMOUT" ) (Continued on next page) 


N 
qeu n 
Now with over 25 MSDOS formats, 32" formats, 
IBM PCAT and word processing format options 


Disk Maker II shown 
with opt. drives 


Download fast, read over 200 formats easily, reformat rapidly 


The more disk formats you work with, the more our Supported with comprehensive, easy-to-read manual, Disk Maker I runs as a peripheral with an S-100 system 
Disk Maker™ system saves time and money by reading software updates ($50.00, all formats in revision), and and comes with S-100 controller board, one 48 tpi 
and/or writing disks in any of over 200 formats. No mo- additional drives and hard disk options. DSDD 5'4'' disk drive, dual drive cabinet and power 


dems, no patches, no other special software necessary. - TM supply, cables and Disk Maker software. 96 tpi and 8'' 
Disk "m drives are optional. Base price: $1.695. 
Disk Maker II is a complete, stand alone system with 


one 8’’ DSDD disk drive, one 48 tpi 5'4'' DSDD disk 
drive, 6 MHZ Z80B, 64K CP/M system with Disk prices from NEW 


Maker™ software. (96 tpi and second 8' drive option- GENERATION 
al.) Just plug in your terminal and make disks! Bundled SYSTEMS 
software includes MicroShell™ /MCALL-II communica- 1800 Michael Faraday Drive, Suite 206, Reston, VA 22090 


tions software. Base price: $3,395. (703) 471-5598 Order Line: (800) 368-3359 Dealer inquiries welcomed. 


Circle no. 76 on reader service card. 
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Compil er in P. r ol Og (Listing Continued, text begins on page 84) 


Listing Two 


(out h^ JMF 
(Qut "VEDIT3S PUSH 
(out u KET”) 
(out UUPRINTI") 
(out £ MUI 
(out z CALL 
(out sa MVI. 
(out o CALL. 
(out D Rei. 2 
(out "UCFMOQUT:'') 
(out a FUSH 
(out b MOV 
(Qut E MVI 
(out 2 CALL 
(out FOF 
(out S RET") 
(out DS 
(out "YSTACK? DW 
(out p END") 
((OFT-DECLARATION 
(Q DECLARATION) 
(Match ipe yy) 
((OFT-DECLARATION 
(emptu))) 
((DECLARATION 
(match " integer") (label X1) 
(out - JMF 
(Q ID-SEQUENCE) (out "an cha pod. 
(CID-SEQUENCE 
(Q IDENTIFIER) 
(multiple 
(Match.",") 
(Q IDENTIFIER) ))) 
(CIDENTIFIER 
(id Z) (out tin. E DS 
((STATEMENT 
(Q IO-STATEMENT))) 
( (STATEMENT 
(Q ASSIGNMENT-STATEMENT))) 
(CSTATEMENT 
(Q UNTIL-STATEMENT))) 
((STATEMENT 
(Q CONDITIONAL-STATEMENT))) 
(«STATEMENT 
(Q ELOCK))) 
(CELOCK 
(match ",beoin") 
(Q DECL-OR-ST) 
(Multiple 
(match "3") 
(Q STATEMENT) ) 
(match ".end") )) 
( (BLOCK 
(match ",beqairn") 
(match ".end") )) 
(CDECL-OR- ST 
(Q DECLARATION) >) 
(CDECL -OR-ST 
(Q STATEMENT))) 
(CIO-STATEMENT 
(match "edit") 
(matory (3 
(Q EXFRESSION) 
(Match "fent? 
Csiring 7s 7) (out CALL 
(out " DE 
(Match Hä A4 
( CIO-STATEMENT 
(match "print") (out S CALL 
(CCONDITIONAL -STATEMENT 
(Match ",if") (label X1) (label X2) 
(Q EXFRESSION) 
(match ".then") (out E MOV 
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») 


VEDIT2") 
Hm 


AL VÅR") 
VCPMOUT') 
A VLF") 
VÅFMOUT") 


n3 
E,A") 
pe 2 
VEDOS") 
Hr? 


60") 
0") 


Vr XT) 


FAD 3 


VEDIT") 
fu 74 EY d nen 


VFRINT") )) 


A H") 
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(Q STATEMENT) 
(match ".else") 


(Q STATEMENT) 


((UNTIL-STATEMENT 
(match ".until'") 


(Q EXFRESSION) 
(match ",do'") 


(Q STATEMENT) 


( CASSIGNMENT-STATEMENT 
(Q EXFRESSION) 
(Match "ei"? 

(id: 23 


((EXFRESSION 
(D EXFRESSION1) 
(Q OFT-RIGHT-SIDE))) 


(COFT-RIGHT-SIDE 
(Match ".=") 


(D EXFRESSION1) 


(COFT-RIGHT-SIDE 
(emptu))) 


((EXFRESSION1 
(Q TERM) 
(multiple 
(Q SIGNED-TERM)))) 


((SIGNED-TERM 
(match "+") 
(Q TERM) 


((<SIGNED-TERM 
(match "-") 
(Q TERM) 


(CTERM 
(Q FRIMARY) 
(multiple 
(match "x") 
(Q FRIMARY) 


( (FRIMARY 
(3423 

( CFRIMARY 
(number Z) 


( (PRIMARY 
(Match "C" 
(Q EXPRESSION) 
COS Oy "2"2-)225 
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(out 
(out 


(out 
(out 
(out 


(label X1) 
" In 


(out 


(out 
(out 
(out 
(out 
(out 


(out 


HA? 
WO n 


EE? 


(label X1 


(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 


(out 
(out 
(out 


(out 
(out 
(out 
(out 
(out 
(out 
(out 
(out 


(out 
(out 
(out 
(out 


(out 


DD 


eu" 


ORA 


JZ 


JMF 
egt 


HESS) 


MOV 
ORA 


JNZ 
JMF 


SHLD 


FUSH 
FUF 
MOV 
SUE 
JNZ 
MOV 
SEE 
JNZ 
LXI 
JMF 


adi AS 


LXI 


én Ak, 


FUSH 
FOF 
DAD 


FUSH 
FOF 
MOV 
SUE 
MOV 
MOV 
SEE 
MOV 


FUS 
FOF 
CALL 
LHLD 


LXE 


(label X2) 


gy 


RE UE. 


(label X2) 


13 


pM 
U" X1) 


Mr X) 


A,H") 
L") 

V" X2) 
U" X1) 


"K £ wi S EN 


MI 
D") 
ALL") 
ET) 
Ut x2 
AH") 
D") 
U" X2) 
H,1") 
U" X1) 


H,0") 


oe = 
Kne ip 
et 
— 


nd 


sii c 


et 


») 


H") 

pr) 

UMULT" 233 
UU Z 415393 


Rm To NR 


End Listing Two 


(Listing Three begins on next page) 
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Compiler in Prolog 
Listing Three 


(Listing Continued, text begins on page 84) 


Part of VALGOL.LOG in SIMPLE syntax 


X compile Y if 
message (Z) and 
F (Z) and 
FF snd 
FF and 
KILL (labelused) and 
sdd ((0 labelused)) and 
KILL (last-shown) and 


add (((-11-1) lsst-shown)) ane 


OFEN (X) and 

KILL (infile) and 

add £X infile)) and 
erase (Y) and 

CREATE (Y) ard 

KILL (outfile) and 
add (CY outfile)) and 
skip (010) 010) D ane 
syntax (49) and 

AR (Q x zy) and 
CLOSE (X) and 

CLOSE CY. and 

PF and 


FP (xxx Compilation of X complete xx) 


X compile Y if 
FF and 
FF (xx Syntax error *X? and 
CLOSE (XY and 
CLOSE - €Y) 

X alphanumeric if 
X alphabetic 

X alphanumeric if 
X digit 

X alphabetic if 
@ LESS X and 
X LESS “C 

X alphabetic if 
"LESS X. and 


X LESS <£ 
X digit if 
/ LESS X and 
X LESS 3 
Listing Four 
P.ASM 
UCFM EQU 0 
UBDOS  EQU 5 
UTFA EQU 256 
UCR EQU 13 
ULF EQU 10 
ORG UTFA 
LXI SF ,USTACK 
JMP v4 
GA DS x 
Vit 
EXT H,0 
SHLD y 
Y2: 
LHLD xy 
PUSH H 
LXI H,15 
POF D 
MOV ^, 
SUE E 
JNZ y5 
MOY A,H 
SEE D 
JNZ us 
LXI H,1 
JMF ua 
VS: 
LXI H,0 
ua? 
MOY ñ H 
ORA N 
JNZ U3 
LXI H,1 
PUSH H 
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End Listing Three 


VER 


UMUL.T $ 


UMUL.T1: 


UMUL.T21 


VEDIT: 


VEDIT1? 
VEDIT2:! 


VEDIT3: 


VERINT 3 


VCFMOUT $ 


USTACK: 


7+’ 20 


BA 
UMULT2 
D 

FSW 

A 

A 
UMULT i 


A, H 

t. 
VEDIT1 
A,’ På 
UCFMOUT 
H 

UEDIT 

H 

AM 

0 

H 
UEDIT3 
UCFMQUT 
UEDIT2 
H 


AS, VER 

UCFMQUT 
ARIEF T 
VEFMOUT 


End Listings 
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Software 


PCBTAM 


Communications Access Method 


Allows an IBM PC or compatible to perform 
BISYNC communication. PCBTAM is a gener- 
al purpose interrupt driven access method us- 
able by any Microsoft apasqa. Requires IBM 
BSCA card and PC-DOS. 

* Source or object license 

* Asynchronous version available (PCATAM) 

e Modifiable for other USARTS. 
For details write: 


(PRESS EEL 
SYMBIOTIC 


Symbiotic Protocol Converters, Inc. 
1011 Clifton Avenue, Clifton, New Jersey 07013 
1201) 777-8454 


Olive Branch Software 


COPY PROTECTION 

SLK/F places an assembled or 
compiled program on a dis- 
kette with 4 different copy- 
resistant features in such a 
way that it runs normally, but 
cannot be copied by backup 
programs such as COPYPC. 
The rest of the diskette is 


available as normal, and DOS : 


may be added. Price $150. 
Olive Branch Software 

1715 Olive Street 

Santa Barbara, CA 93101 
(805)569-1682 


DDJ Classifieds 


BRINGING YOUR PROGRAM 


OUT OF THE CLOSET? 
DISKETTES & DUPLICATION 


Large or Small - Let's Talk!! 


51%" DISKETTES 


SS/DD 99* EA. ps/p | .] 0 EA. 


Minimum order 250 disks. 
8" - Color Jackets - 3" CALLI! 


Hundreds of professionals 
can't be wrong!!! 


CALL 800- 437-0500 


TECMAR GRAPHICS 
LIBRARY 


TEKMAR lets you do high-res 
graphics on your TECMAR 
Graphics Master. Features 
windowing, viewporting, 
clipping, axis rotation. Similar 
to Tektronix graphics. 
Includes screen dump/ 
restore, Epson screen print, 
support for HP and Western 
Graphtec plotters. Includes 
three curve-fitting programs 
and graphics application 
SOURCE CODE. Requires 


MS-FORT 3.20, or Lahey 
F77L. Price: $195. 


ADVANCED SYSTEMS 
CONSULTANTS 

18653 Ventura Boulevard, 
Suite 351 

Tarzana, California 91356 
(818) 990-4942 


800-435-7400 In CA 
TODAY! ^ (408) 262-3008 


DriveLiner 


Drive Alignment Test 
Program for CP/M 2.2/3.1 
With Dysan 8” SSSD 
Diagnostic Disk 

$65 check/MO postpaid 
Chandler Software, 273 W 
Shore Dr, Marblehead MA 
01945 (617)631-4685 


780 Trimble Rd. è Suite 608 
San Jose, CA 95131 


Dr. Dobb's Journal 


is pleased to announce the 
DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 
consecutive issues. 
LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of 5 lines. 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 
DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 
MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 


Offering low cost 
advertising reaching 
thousands of computer 
programmers and 
professionals each 
month. Departments to 
choose from include: 


Software reduction is required. Line: Specify characters in boldface, caps. Allow 6 
Hardware weeks for publication. 
Accessories/Supplies PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 


Career Opportunities 
Services 


Run this ad in issues 


User Groups. Special Size: col x inches or 1 col x lines 
categories are also Payment by: check m/o Visa M/C AmEx 
available. Card # Exp Date 
Signature 


Print Name 


Company 
Address 
de MP CO! ae VE Venter d'ail die ae Pa MER GE oe GE Me Bikes ECE Ss > 
Phone = C... S ng E= = z =: seg o SGK 


Mail to or phone Alex Williams, DDJ Classifieds, 2464 Embarcadero 
Way, Palo Alto, CA 94303 (415) 424-0600 
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REVIEWS 


Toolworks C/80 and Tool- 
works C/80 Mathpack, 
Version 3.1 

Company: Software Toolworks, 
15233 Ventura Blvd., Suite 
1118, Sherman Oaks, CA 
91403 

Computer: Heath; Kaypro Il, 4, 
and 10; Osborne 1 and the 
Executive; DEC VT-180 and 
Rainbow; Xerox 820 

Price: Compiler, $49.95; 
Mathpack, $29.95 

Circle Reader Service No. 101 

Reviewed by D. C. Shoemaker 


Few readers of Dr. Dobb's Journal 
are unaware of the contribution 
made to small computer system pro- 
grammers by Ron Cain and his mini- 
mal C subset compiler. Over the 
years since its introduction, there 
have been many extensions and im- 
provements, all building on his basic 
idea. One of the best and most com- 
plete versions is from Walt Bilofsky's 
Software Toolworks. First released in 
1981, Version 3.1 is the most current 
and comes the closest to being a com- 
plete C compiler. 

This software is a bargain at the 
price. The package comes in two 
parts, sold separately: the C compiler 
itself is $49.95, and the C/80 Math- 
pack is $29.95. There's a reason for 
the way the software is packaged and 
priced. Those just learning C proba- 
bly have no need for the FLOAT and 
LONG data types that the Mathpack 
provides. Adding these features 
somewhat increases the size of the li- 
braries and the assembled code. If 
you need them, Mathpack is a bar- 
gain-level entry into other more pow- 
erful capabilities given by the addi- 
tional data types. Therefore, you 
don't have to pay for something you 
don't need, but you aren't limited to 
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an entry-level compiler that can't do 
serious work. 

C/80 is a complete implementa- 
tion of the C language described by 
Brian Kernighan and Dennis Ritchie 
in The C Programming Language 
(Prentice-Hall, 1978) with the excep- 
tion of the following features: 


* FLOAT and LONG data types 
(available in the C/80 Mathpack) 

e DOUBLE data type 

° typedef 

e Arguments to #define macros 

° Hine 

e Declarations within nested blocks 

* Bit fields 


Whether or not these omissions are 
significant depends a great deal on 
what you want to do with the soft- 
ware. If you want to learn the lan- 
guage and get a whiff of program- 
ming in C, the C/80 package is 
sufficient. If you want to write some 
fast-running utility software and 
don't want to invest the time in as- 
sembly language, these omissions will 
cause no problems. 

C/80 supports structures, statics, 
initialization, casts, compile time 
evaluation of constant expressions, 
and all the other C language features. 
Its worth mentioning some of the 
features that C/80 does provide, 
however, because they're often lack- 
ing in other subsets: 


* Unix-style I/O redirection 
Conventional C I/O and string 
library 

Formatted and random access file 
I/O 

Dynamic storage allocation 
Runtime execution profile 
capability 

In-line assembly language 
capability 


In addition, C/80 can generate 
source code compatible with Macro- 
80 and RMAC. Should you have nei- 
ther, a serviceable assembler comes 
with the C/80 package. It works well 
and does the job with no fuss. 

If you have a version of C/80 earli- 
er than 3.0, here are the main 
changes in version 3.1: 


An expanded runtime library 

e ROMable code 

* RMAC compatibility 

* A menu-configurable compiler 

*N at the"end of a. Dine for 
continuation 

° #ifneed for selective compilation 

* True alloc/free 

e Command line wildcard expansion 

e CP/M files now written in 128-byte 

records 

File 0 always the terminal 


The changes from version 3.0 to 3.1 
are to correct minor bugs and speed 
code generation. Some new compiler 
switches have been added, and you 
are now prohibited from reading 
from and writing to the same open 
file. If you have one of the earlier ver- 
sions of C/80, return the original disk 
to Software Toolworks with $10.00, 
and they will give you the most recent 
version. I bought my first copy of C/ 
80 in 1981 and have updated it twice. 

Software Toolworks makes the C/ 
80 package available in a variety of 
formats. Walt Bilofsky was one of the 
first to support Heath's in-house disk 
operating system HDOS, and he still 
does. However, the standard remains 
CP/M, and Software Toolworks pro- 
vides disks for Heath, both hard and 
soft sector; Kaypro II, 4, and 10; Os- 
borne I and the Osborne Executive; 
DEC's VT-180 and the Rainbow; the 
Xerox 820; and the standard 8-inch 
CP/M single-density format. There's 
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even a version for the Epson QX-10. 
Currently no version is offered for the 
IBM PC, PCjr, or any MSDOS, 
PCDOS, or ZDOS computer because 
the programs are written in 8080 
code, but I expect that will change. 
Incidentally, I'm using the CP/M ver- 
sion on a Heath H120 running CP/ 
M-85 with no trouble at all. Just or- 
der the soft-sector Heath version. 

Using C/80 is simple. The hard 
part (as usual) is writing the original 
C language program. Then you call 
C/80 and let it compile the source 
into 8080 assembly language code. 
Let's use one of the test files on the 
distribution disk, HELLO.C. We do 
this by typing “C80 HELLO." The 
output file from C/80 can be modi- 
fied if you wish. I’m not the greatest 
assembly language programmer, so I 
don't change the code, but someone 
more experienced might be able to 
tighten it up in some areas. 

Next, call the assembler of your 
choice. I use the one that comes with 
the package. It's invoked as you 
might expect, by typing "AS HEL- 
LO." When the assembly is finished, 
you have an executable file called 
HELLO.COM. It will be rather large, 
due to the inclusion of pieces from the 
I/O and other libraries, but that's 
part of the tradeoff. The completed 
code executes relatively quickly. I 
don't have the capability to do much 
comparative benchmarking, but 
comparisons I’ve seen suggest that in 
some cases C/80 is a bit faster than 
BDS C and in others a bit slower. On 
balance they seem about equal, ex- 
cept that BDS C has some nonstan- 
dard features that get in the way of 
portability, and it costs twice what 
C/80 costs. BDS C doesn't provide as 
many formats, either. 

Software Toolworks doesn’t 
charge a license fee for the COM files 
created by C/80. This means that 
you're free to market whatever you 
write and compile as you see fit. Un- 
like some of the so-called "big boys" 
of the software industry, Bilofsky en- 
courages programmers to market 
software using his tools. 

A word about documentation: If 
you're a first-time C user, the manual 
that accompanies C/80 won't be too 
helpful. There are some examples in 
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the documentation that you can play 
with, and several source code files on 
the distribution disks, but that's it for 
introductory material. Several good 
books on the market can help you get 
a better grasp of the language. The 
documentation lists eight of the most 
common of these, and new books ap- 
pear almost monthly. 

The C/80 manual is 50 pages long 
with a three-page index. It has 16 
chapters, with most of the attention 
paid to a language summary, a de- 
scription of the I/O and runtime li- 
braries, and a discussion on running 
the compiler. The manual includes a 
brief discussion of the internal fea- 
tures of the compiler and useful 
tricks to bend the compiler to your 
will. There is also a detailed list of 
compiler error messages, what they 
mean, and what to do about them. 

The C/80 Mathpack requires C/80 
version 3.0 or greater. If you've been 
working with an earlier verson of C/ 
80, the Mathpack is a good reason to 
take advantage of the Software Tool- 
works' update policy. Mathpack 
comes on one disk with a short man- 
ual. The Mathpack adds true 32-bit 
LONG and FLOAT data types to the 
C/80 compiler and runtime library. It 
includes a program to patch the C/80 
compiler to recognize LONG and 
FLOAT, a runtime library to perform 
32-bit arithmetic, routines to convert 
between ASCII and floating-point 
representation, an augmented printf, 
and a transcendental library written 
in C. 

In practical terms, this gives the 
C/80 a 32-bit signed number capa- 
bility in the range —2,147,483,648 to 
2,147, 483, 647. Floating-point num- 
bers have 24-bit precision, which 
equates to about seven decimal digits, 
and an exponent range of 10 to the 
plus or minus 38th power. 

Installing the Mathpack requires 
only that you run the modifying pro- 
gram CCONFIGF.COM. Å menu will 
appear with a range of options. 
Choose option N and press RETURN. 
This changes FLOAT and LONG 
from not available to available. Now 
type a Y in response to the question 
about making changes permanent, 
and you're done. Everything else 
about C/80 remains as before, except 


NEW, IBM? PC, XT, Compaq? Corona? 


remembers the 
function keys... 


== Lotus 1-2-3" 


.. of all your favorite software. You select your 
own combination from 20 color coded function 
key overlays, and attach your FlipKit to your 
keyboard—that's all there is to it! Of course, 
FlipKit is non-glare, easily removable, and will 
not mark your keyboard. Every FlipKit includes 
preprinted overlays for: 


Lotus™ 1-2-3™ 

Multiplan™ for IBM” 

Framework" 

Symphony" 

dBase® Ill 

IBM® Filing/ 
Reporting Assistant 

Thinktank™ 

IBM? Writing Assistant 

Microsoft? Word 


Only $14.95! Order Now! 


Visa, Mastercard only, call 24 hrs/7 days: 


1-800-228-2028 ext. 120 toll free Cont. US. 


In Nebraska, call 1-800-642-8300 ext. 120 
Information, inquiries, call 415-325-8000 


Multimate™ 
Pfs® write 
Wordstar® 
Crosstalk XVI" 
MS™ DOS 


LUS 

5 “do-it-yourself” 
senile overlays 
and keyboard 
attachments 


Or send check, m.o., credit card info. (#, exp. date, 
and signature) to: 


Micro Direct International 
P.O. Box 60987, Palo Alto, CA 94306 


Include quantity, name, address, city, state, zip, 
phone. Sorry no CODs. Order several—shipping/ 
handling per order: USA $3.50/Canada $6/0ther 
countries $15. CA residents add appropriate sales 
tax. Allow 3-4 weeks delivery (personal checks add 
2 weeks). Dealer and corporate inquiries welcome. 


FlipKit — Micro Direct International/Lotus 1-2-3, Symphony — Lotus Development Corp./ 
MultiPlan, MS Word, MS DOS — MicroSoft Corp./pfs: write — Software Publishing Corp./ 
Framework, dBase Ill — Ashton Tote/IBM Writing Assistant, Filing Assistant, Reporting 
Assistant — International Business Machines Corp./MultiMate — MultiMate International 
Corp./WordStar — MicroPro International Corp./Crosstalk XVI — Microstuf, Inc./ 
Thinktank — Living Videotext, Inc. 


Circle no. 30 on reader service card. 
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that the size of the compiled and as- 
sembled code increases a bit. 

The Mathpack manual is only 10 
pages long with six chapters; it 
spends most of its time on installation 
and additions to the function library. 
You'll have to know how to make use 
of FLOAT and LONG before the 
Mathpack will do you much good. 

In summary, if you want to learn C 
or if you already know a bit about the 
language and want an inexpensive 
but powerful implementation for 
your CP/M computer, my first choice 
would be the Software Toolworks C/ 
80 and an introductory book. If you 
want an enhanced 32-bit capable C, 
add the Mathpack. For under $80.00 
you can't miss. 


Disk Maker I 
Company: New Generation Sys- 
tems, 1800 Michael Faraday 
Drive, Suite 206, Reston, VA 
22090 
(703) 471-5598, 
(800) 368-3359 
Operating System: CP/M 2.2 
Price: $1695.00 
Circle Reader Service No. 103 
Reviewed by Jim Kronman 


Disk Maker I from New Generation 
Systems offers a practical solution to 
the virtual Tower of Babel that exists 
in the world of CP/M and MSDOS 
disk formats. Acting as a peripheral 
device in an S-100 system, Disk Mak- 
er I can format, read, write, and du- 
plicate over 170 disk formats (at the 
time of this review—the total grows 
every month or two), allowing you to 
copy virtually any soft-sectored for- 
mat and transfer disk files between 
various CP/M and MSDOS disk for- 
mats. An optional file transfer utility 
program transfers files from Dec- 
Mate II and Wang OIS word process- 
ing disk formats. 

The standard Disk Maker I pack- 
age consists of an S-100 disk control- 
ler board capable of supporting up to 
four disk drives, a 48 track-per-inch 
(tpi), double-sided 5!4-inch disk drive 
with power supply in a fan-cooled 
cabinet, and the Disk Maker soft- 
ware. Other disk drives for Disk 
Maker are a 96 tpi 5'4-inch drive, a 
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135 tpi 32-inch drive, or a 96 tpi 1.2 
Mb IBM PC/AT drive (as used in the 
IBM PC/AT) installed in the cabinet 
with the 48 tpi drive. A double-sided 
double-density (DSDD) 8-inch drive 
with its power supply in a separate 
cabinet is also available. Software op- 
tions are the word processing transfer 
utilities and disk drive test software. 
If you don't have an S-100 system, 
do not stop reading: New Generation 
Systems also offers a stand-alone 
Disk Maker II system. It is a 6 MHz, 
Z80, 64K CP/M 2.2 system that in- 
cludes one DSDD 8-inch drive and 
one 48 tpi, DSDD 54-inch drive plus 
the same software provided with Disk 
Maker I. You can add the same op- 
tions described for Disk Maker I, up 
to a total of four drives; a 10 Mb hard 
disk option is also available. Having 
reviewed the manual for the Disk 
Maker II (but not having used the 
equipment), I am reasonably confi- 
dent that my remarks about Disk 
Maker I will be applicable to the op- 
eration of Disk Maker II as well. 
The Disk Maker I controller uses 
the Western Digital 1795 controller 
chip, allowing the software to read or 
write disks in all 170-plus formats 
shown in the Table on page 101 (if 
you have the appropriate drives, of 
course). Disk Maker I cannot accom- 
modate some disk formats such as Ap- 
ple, NorthStar, Micropolis, Commo- 
dore, and Victor; these formats either 
are hard-sectored or depend on special 
tricks in the disk controller hardware. 
When you have the optional 96 tpi 
5!4-inch drive installed, the software 
allows you to set the 96 tpi drive as a 
read-only drive for a 48 tpi format; 
this allows you to transfer files from 
one 5!4-inch disk to another without 
having to do an intermediate copy. 
With the two 5'4-inch drives set to 
the same format, rapid disk duplica- 
tion is possible using the DUPE utility 
program. New formats are added 
regularly, and New Generation Sys- 
.tems offers each upgrade to current 
users for only $50. 


Programs 
The Disk Maker I software includes 


these programs: 


DMINSTAL.COM—sets user-deter- 


mined and system-dependent options 
DMSET.COM —loads Disk Maker 
BIOS into the system 

DMFORM.COM —formats disks 
WHATDISK.COM —determines ex- 
act format of IBM, Z-100, or Morrow 
disk 

MC.COM— Mass Copy, a file copy 
program 

DUPE.COM—rapid track-for-track 
copy program with optional verify 
DMCOMP.COM —rapid track-for- 
track compare program 
TOMS.COM—CP/M « = > PCDOS 
file exchange utility 


Various public domain utilities such 
as SWEEP and D normally are pro- 
vided on the distribution disk as space 
permits. Two or more versions of 
DMSET and DMFORM are provided 
to accommodate various hardware 
peculiarities. 
The optional software is: 


DDD.COM —disk alignment program 
used with special disks 
DEC2CPM—utility to transfer files 
from DecMate II word processor to 
CP/M 

WANG2CPM —utility to transfer 
files from Wang OIS word processor 
to CP/M 


Requirements 
Disk Maker I is designed to operate 
under standard CP/M 2.2 with an 
8080, 8085, or Z80 CPU. New Gener- 
ation Systems recommends using it 
with a standard CP/M system only, 
but I run it with CP/M 2.2 and ZCPR, 
version 1, without any problems. The 
controller board and Disk Maker soft- 
ware normally use ports 98 to 9F 
(hex), but New Generation Systems 
provides software and hardware mod- 
ification instructions to relocate the 
ports to other addresses if you have an 
unresolvable conflict in your system. 
Although a 64K system is recom- 
mended for Disk Maker I, it will run 
in as little as 48K. The more disks you 
attach to the Disk Maker, the more 
memory the software requires. When 
you use the TOMS utility, a smaller 
TPA means that you may not be able 
to handle a full directory on an 
MSDOS disk; my 57K system will 
handle the maximum. Double-density 
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Apricot CP/M-86 


3 (55DD) arr 
Access (SSDD) 169K Actrix Matrix DDD) 340K Y 
AMPRO (SSDD) 188K AMPRO — (DSDD) 386K 
Balcones BRAVO (DSDD) 346K  Bondwell Model 14/16 (DSDD) 346K 
BYAD (SSDD) 154K Casio FP 1000/1100 (DSDD) 300K 
Compuview CP/M-86 (SSDD) 193K  Cromemco [SSSD) 81k 
Cromemco (SSDD) 188K ` Cromemco C-10 OR —  — 
Davidge 1024 (DSDD) 368K DEC VT180 (SSDD) 169K _ 
Digilog (DSDD) 332K = Eagle I (SSSD) 70K 
Epson QX-10 CP/M (DSDD) 378K Epson QX-10 MF (DSDD) 278K 
Fujitsu Micro 16s (DSDD) 314K Heath H-37 (SSDD) 148K 
Heath H-37 (DSDD) 304K Heath w/CDR Systems (DSDD) 380K 
Heath w/Magnolia (SSDD) 162K HP 86/87/125 (DSDD) 248K 
IBM PC (CP/M-86) (SSDD) 154K IBM PC (CP/M-86) (DSDD) 314K 
TCL PCI 10,30,31,32  (DSBB) 254K Insight Dev. IQ-120 (SSDD) 146K 
KayPro II (SSDD) 191K KayPro 4/10 (DSDD) 394K 
Lobo Max-80 (SSDD) 164K Lobo Max-80 35tk (SSDD) 142K 
Lobo Max-80 35tk (DSDD) 296K . Microbee (DSSD) 1/1K 
Microbee (DSDD) 386K Molecular 9X (DSDD) 338K 
Morrow Micro Dec I/II(SSDD) 186K Morrow Micro Dec III (DSDD) 384K 
Morrow Micro Dec 11 (DSDD) 384K MultiTech MIC-501 (SSDD) 168K 
NCR Decision Mate V (DSDD) 304K NEC PC-8000 Series (SSDD) 169K ` 
NEC PC-8000 Series (DSDD) 300K Osborne (SSSD) 90K 
Osborne DD/Executive (SSDD) 183K Otrona Attache (DSDD) 360K 
PMC 101 (CP/M 3.0) (DSDD) 386K Sanyo 1000/1100/1150 (DSDD) 310K 
SD Sales (559) 71K SD Sales (SSDD) 112K 
Sharp 3540 (DSDD) 292K  SuperBrain (SSDD) 162K 
SuperBrain (DSDD) 340K  Systel ITI (DSDD) 346K 
TeleVideo 802/3/6 (DSDD) 340K  TeleVid. 806 TurboDos(DSDD) 396K 
TI Professional (SSDD) 154K Toshiba T100 (DSDD) 254K 
TRS-80 Mod I Omikron (SSSD) 70K TRS-80 Mod I Omikron (SSDD) 131K 
TRS-80 Mod III MM (SSDD) 186K . TRS-80 Mod IV (SSDD) 154K 
TRS-80 IV Montezuma (SSDD) 166K Versa Floppy II (DSDD) 278K 
Xerox 820 (SSSD) 82K Xerox 820 ASSDD) 155K 
Zenith Z-100 (SSDD) 148K Zenith Z-100 (DSDD) 304K 
Zenith Z-100 (orig) (DSDD) 304K Zorba (DSDD) 388K 
ALTOS 586 96(DSDD) 700K AMPRO 96(SSDD) 386K 
AMP RO 96(DSDD) 782K Analyzer 96(DSDD) 620K 
Archives I 96(SSDD) 386K Archives II 96(DSDD) 786K 
Associate + 96(DSDD) 786K CompuPro 10 96(DSDD) 772K 
CompuStar 40 96(DSDD) 786K DEC Rainbow 96(SSDD) 386K 
Digilog DBS 16 96(DSDD) 780K Direct 0A1000 96(DSDD) 622K 
Discovery 96(DSDD) 624K Eagle I1/1V 96(SSDD) 386K 
Eagle III 96(DSDD) 762K Epic 96(DSDD) 782K 
Facit DIC 96(SSDD) 308K Heath H-37 96(SSDD) 308K 
Heath H-37 96(DSDD) 624K Honeywell 96(DSDD) 632K ` 
ICL Model 25 96(DSDD) 628K ICL Model 35 96(DSDD) 778K — 
IMS (TurboDos) 96(DSDD) 772K Intel iPDS 96(DSDD) 608K 
Ithaca 525 96(SSDD) 346K Ithaca 525 96(DSDD) 628K 
Lobo Max-80 96(DSDD) 698K . MACSYM 150/350 96(SSDD) 308K 
Monroe 0C8820 96(SSDD) 306K Monroe 2000 96(DSDD) 628K 
MultiTech MIC-504 96(DSDD) 698K NCR Work Saver 96(DSDD) 544K 
Olympia People 96(DSDD) 618K OSM Zeus 4 96(DSDD) 620K 
Otrona RU 770K Philips P2000C CAR GE 628K t 
Philips 3000 96( SSDD) 294K Pied Piper 96(DSDD) 776K p 

Table 
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Intertec HeadStart 3"(SSDD) 


Disk Maker I Formats 


(Continued on next page d 
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— Sanyo 1200/50 


96(SSDD) 302K ` 


| 6(DSDD) 620K 
Sanyo 4050 - > 6(DSDD) 620K TeleVideo 1603 96(DSDD) 706K 
Vector 4-S 6(DSDD) 712K Vector VSX 96(DSDD) 710K 
ALTOS "(SSDD) 446K CCS (256b) 8"(SSDD) 482K 
BE (1024b) 8"(SSDD) 596K Colonial Data SB80 8"(SSDD) 596K 
Colonial Data SB80 8"(DSDD)1208K Columbia 1800 8 (SSDD) 592K 
CompuPro (1024b) 8"(SSDD) 596K ` CompuPro (1024b) 8"(DSDD)1192K 
CP/M SSSD Standard 8"(SSSD) 241K Delta Products 125 8"(DSDD)1212K 
Harris 1685-50MFT 8"(SSDD) 596K Harris 1685-50MFT 8"(DSDD) 968K 
Harris 1685-50MFT 8"(DSDD)1196K IBM 3740 TO Direct 8"(SSSD) 248K 
IBM 5520 WP ` "(DSDD)1132K IBM 128b no skew  8' (SSSD) 241K 
IBM 256b no skew "(SSDD) 482K Insight 10-120 8"(SSDD) 484K 
Megaflex Apple '(SSDD) 558K Molecular 8"(SSDD) 496K 
NEC APC CP/M-86 (DSDD) 980K S. D. Sales (128b) B (SSDD) 464K 
S. D. Sales (256b) 8 (SSDD) 476K Tarbell (128b) 8 (SSDD) 472K 
IRS-80 11,12/6 PAT 8'(SSDD) 596K  TRS-80 II,12/6 P&T 8"(DSDD)1210K 
TRS-80 Lifeboat '(SSDD) 482K  TRS-80 Lifeboat 8"(SSDD) 596K 
Vector 2800 '(DSDD) 984K Zenith Z-100 8 (SSDD) 482K 
Zenith Z-100 (DSDD I OBOK ACT Apricot MSDOS 3'(SSDD) 314K 
HP-150 MSDOS 3"(SSDD) 258K  Intertec H-S MSDOS 3"(SSDD) 395K 
IBM PC PCDOSI.I(SSDD) 156K IBM PC PCDOS1.1(DSDD) 315K 
IBM PC PCDOS2.0(SSDD) 175K IBM PC PCDOS2.0(DSDD) 354K 
IBM PC-AT PCDOS3.0(DSDD)1186K Kaypro 10 MSDOS (DSDD) 354K 
Wang MSDOS (DSDD) 354K ‘Zenith ZDOS 1.1(DSDD) 315K 
BurroughsB25 MSDOS 96(DSDD) 610K DEC Rainbow MSDOS 96(SSDD) 384K 
Eagle 1600 MSDOS 96(DSDD) 785K Monroe MSDOS 96(DSDD) 712K 
NCR D-M "M" MSDOS 96(DSDD) 790K  Otrona MSDOS 96(DSDD) 712K 
Sanyo MBC MSDOS 96(DSDD) 792K Tandy 2000 MSDOS 96(DSDD) 714K 
Lomas Data MSDOS 8 (SSSD) 239K NEC APC MSDOS 8"(DSDD)1221K 
Standard MSDOS 8"(SSSD) 246K Zenith V1.1 ZDOS 8 (SSSD) 245K 
NOTE: all formats 5 1/4" 48 tpi, CP/M-80/86 unless noted as: 
3 « 3 I/2 inch format x 
8" -~ 8 inch format 
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8-inch formats and the IBM PCAT 
drive require at least a 4 MHz system 
clock; otherwise, a 2 MHz clock 
should be sufficient. 

Installation of the Disk Maker I 
hardware is as easy as plugging the 
disk controller board into an empty 
slot in your S-100 bus motherboard 
and connecting the disk cable be- 
tween the disk cabinet and the con- 
troller board. A menu-driven instal- 
lation program allows you to 
customize some features of the sys- 
tem to your hardware and personal 
taste; the installation process takes 
only a few minutes. 
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96 tpi 5 1/4 inch format 
SS = Single Sided; DS = 
SD = Single Density; DD = 


Double Sided 
Double Density 


Table 
Disk Maker I Formats 


How It Works 

Disk Maker I is simple to use. To for- 
mat a disk, type DMFORM to invoke 
the format program, then choose a 
format by number from the on-screen 
menu. You can also invoke 
DMFORM by making a format 
choice on the command line; the pro- 
gram proceeds without showing you 
the menu. You can return to the 
menu if you want to change your se- 
lection. DMFORM will verify a disk 
after formatting if you set a perma- 
nent option with DMINSTALL or 
specify verification on the command 
line when you invoke DMFORM. 


The DMSET program gives you ac- 
cess to the Disk Maker disk drives. 
You use DMSET the same way you 
use DMFORM: you can choose from 
a menu or go directly to work by 
specifying a format on the command 
line. You can set each Disk Maker 
drive to a different format. Every 
time you warm boot, the Disk Maker 
software displays the disk formats 
you have selected. 

DMSET installs a special BIOS un- 
der your normal CP/M system; you 
can run any CP/M program that will 
fit in the somewhat reduced memory 
left for applications. Even though 
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there is less memory, I have found it 
adequate for running any of my utili- 
ties, dBASE II or my text editor 
(which does bidirectional scrolling 
through a disk file). You probably 
will notice the memory reduction the 
most when you run a spreadsheet 
program or any other application 
that uses all available memory but 
does not scroll data to and from disk, 
the way many text editors do. 
Because of the radically different 
structure of MSDOS files, you need a 
special program called TOMS (TO 
MSDOS) to access individual disk files 
on a MSDOS disk. You cannot run an- 
other program while using TOMS; if 
you want a CP/M application to ac- 
cess a MSDOS data file, you first must 
transfer the file to a CP/M format. 
TOMS is like a small part of the 
MSDOS operating system, providing 
the commands DIR, COPY, TYPE, 
and ERASE. TOMS cannot deal with 
subdirectories, so all files must be in 
the root directory on a MSDOS disk 
coming into the system; all files writ- 
ten by TOMS are in the root directory. 


Performance 
I have been using Disk Maker I for 
well over a year. The capabilities of 
the system are impressive, but even 
more impressive is the support New 
Generation Systems provides. I was 
an early user and, as you might ex- 
pect, everything did not start out 
working perfectly. One annoying 
problem was caused by the routing of 
the data cable in the disk drive cabi- 
net. The cable was picking up noise 
from the power supply, which gave 
me errors when reading the inner 
tracks of the 48 tpi drive. I solved the 
problem by changing the routing of 
the cable at the suggestion of New 
Generation Systems, but in the 
meantime, I received a replacement 
48 tpi drive that had been specially 
aligned and certified. I have always 
received courteous and competent as- 
sistance anytime I have had a reason 
to call New Generation Systems with 
a problem or a question. You can ex- 
pect the same treatment. (I was deal- 
ing with New Generation Systems as 
just another user, before I had 
thought of doing this review.) 

The Disk Maker I hardware con- 
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sists of off-the-shelf components inte- 
grated by New Generation Sys- 
tems— nothing "razzle-dazzle” but 
obviously chosen carefully for quality 
and value. What makes the Disk 
Maker I package outstanding is the 
software and support. The programs 
perform well and are easy to use. The 
no-nonsense operator interface was 
designed for users who need to get 
things done quickly. 

Although the software is not 
friendly in the current sense of having 
elaborate menus and on-line help fa- 


cilities, each user prompt and pro- 
gram response is clear in its meaning. 
With one exception, which I will dis- 
cuss later, all errors are trapped 
cleanly and appropriate error mes- 
sages appear on the screen. The user 
interface is appropriate for the in- 
tended users of this package: soft- 
ware professionals, experienced com- 
puter users, and serious hobbyists 
with a need to transfer files between 
diverse disk formats. Operation is 
simple enough for a novice to use the 
system, too. 


Evolution. 


Now FoxBASE, the dBASE II source- 
compatible interpreter/compiler, is even 
better than before. Automatic 8087 co- 
processor support allows you to perform 
numeric computations with lightning speed. 
Fourteen-digit precision gives you 40% 
greater accuracy than dBASE II. The fact 
that FoxBASE is not copy protected means 
you can easily load it onto your hard disk. 
What's more, FoxBASE comes complete with 
a NO-RISK demo plan. 

Of course, FoxBASE still offers all of 
the features that dBASE II does... PLUS 
* Runs 3 to 20 times faster * Permits up to 
48 fields/record...50% more than dBASE II 
° Supports full type-ahead e Compiles pro- 


Developed by 


DACOR 


COMPUTER SYSTEMS 


dBASE Il is a trademark of Ashton-Tate. 
UNIX is a trademark of AT & T 
FoxBASE is a trademark of Fox Software Inc. 


gram sources into compact object code * Has 
twice as many variables * Comes with a so- 
phisticated online manual and HELP facility. 

FoxBASE is currently available on a wide 
range of machines: IBM-PC, IBM-PC/XT/AT, 
COMPAQ & IBM compatibles, TI Professional, 
DG Desktop, and DG MV-Series to name just 
a few. And it will soon be available on the 
Molecular and NCR Tower computers as well. 
Call or write today for more information. 


MS-DOS: Development Pkg. $395 
Runtime Pkg. $695 
AOS/VS: Development Pkg. $995 
Runtime Pkg. $1995 


UNIX and XENIX: (To Be Announced) 


from FOX SOFTWARE INC. 


13330 Bishop Road, P.O. Box 269, Bowling Green, OH 43402 / 419-354-3981 / TWX 810-499-2989 


Circle no. 40 on reader service card. 
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Svs 
FORTH 


for the Apple® | [ 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, Sta A 
Champaign, IL 61820 


Technical Information: 
217/359-6039, mornings 


For any Apple ] [ model, 48K or larger. 
Apple is a registered trademark of Apple 
Computer. 


Circle no. 48 on reader service card. 
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The Disk Maker I (and Disk Mak- 
er II) documentation is well orga- 
nized and appropriate for the intend- 
ed users. The User's Manual for Disk 
Maker I contains over 50 pages with 
a good table of contents in a three- 
ring binder. The table of contents is 
adequate for using the manual: no in- 
dex is provided and none is needed. 
The manual, prepared with a word 
processor, is much cleaner in appear- 
ance than most manuals prepared 
this way. It is relatively easy to flip 
through the pages and spot whatever 
you are looking for. 

New Generation Systems has as- 
sumed that you already know how to 
use CP/M and your computer. The 
manual will say "copy this file to an- 
other disk" rather than give a blow- 
by-blow description of how to use the 
file copy utility. There is a section ti- 
tled "How To Run Disk Maker With- 
out Reading The Manual” for the im- 
patient and for the technical-minded a 
section on each program called "How 
xxxx Works" that explains the inner 
workings of the program. 

I have validated Disk Maker's abili- 
ty to format, read, or write disks in 
about 20 of the 170 available formats. 
I have used Disk Maker primarily to 
move files between an S-100 system 
and an Osborne I (double density) or 
between the S-100 system and a 
PCDOS system. Other than the read 
errors I encountered (now fixed), the 
Disk Maker hardware and software 
have performed flawlessly for me. 

I have encountered a few instances 
where it has been necessary to bulk 
erase a disk and format it with Disk 
Maker I because, if I wrote on a disk 
already formatted by the receiving 
system, that system could not read 
the disk. 

Although Disk Maker I is easy to 
run, one enhancement would be wel- 
come. The Disk Maker I software as- 
sumes you know what disk format 
you are dealing with. If you tell it you 
are feeding it a disk of format X and 
then give it a disk of format Y, you 
may or may not get an error message; 
the program you run could go merrily 
along without complaint, producing 
either garbage files or a disk that the 
target system cannot read. The Disk 
Maker software cannot identify posi- 


tively that you have inserted the cor- 
rect disk format in the drive being 
written to because no standard means 
of identification exists for a blank 
formatted disk; even if you determine 
the sector size, sectors per track, and 
so forth, you still cannot deduce the 
directory size and other characteris- 
tics needed for positive identification. 

WHATDISK enables you to deter- 
mine which of several similar formats 
a disk might be, if you already know 
that the disk is for IBM PCDOS, 
Heath/Zenith Z-100, or Morrow 
Micro Decision. A generalized 
WHATDISK program to identify any 
disk format would be very useful. 
Such a program is impossible to 
write, however, for the above reasons. 


What You Pay 

The basic Disk Maker I, which in- 
cludes the controller board, one 48 
tpi, DSDD 5-inch drive, and the 
Disk Maker software is $1695. The 
96 tpi, DSDD drive is an additional 
$395. The 8-inch drive and cabinet 
for Disk Maker I is $849. The 3!⁄- 
inch drive costs $295, and the PCAT 
drive is $495. The word processing 
transfer utilities package is $295, and 
the disk testing software is $150 plus 
$40 each for the 48 and 96 tpi Dysan 
test disks. You also can purchase the 
Disk Maker I controller and software 
with no drives. 

The basic Disk Maker II system is 
$3395 for the stand-alone 6 MHz 
Z80B system with one DSDD 8-inch 
drive, one 48 tpi, DSDD 5'%-inch 
drive, and CP/M 2.2; you only need to 
add a terminal. The option prices are 
the same as for Disk Maker I, and a 
second DSDD 8-inch drive costs $600. 

Are these prices reasonable? It de- 
pends on what you need. Programs 
for the Kaypro, IBM PC, Morrow, 
and other computers that allow you 
to read, write, and format a number 
of 5%-inch formats cost less than 
$100, but don't ask them to recognize 
an 8-inch disk drive, a PCAT drive, or 
a 3%-inch drive. At the other end of 
the spectrum are systems that claim 
less capability than Disk Maker II 
and cost over $5000. Disk Maker I 
and Disk Maker II offer outstanding 
versatility and performance for the 
money. 
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It's a real bargain! Here's why: 


e Only $49.95 plus shipping 
e 8080 to Z-80 Source Code 
Converter 


e Generates Microsoft com- 
patible REL files or INTEL 
compatible hex files 


e Compatible with Digital 


Research macro assem- 
blers MAC & RMAC 


e Generates Digital Research 
compatible SYM files 


e Full Zilog mnemonics 
e INCLUDE and MACLIB files 
e Conditional assembly 


e Separate data,program, 


common and absolute pro- 
gram spaces 


e Customize the Macro 


Assembler to your require- 
ments with installation 
program 


e Cross-reference 


Generation 


e Z-80 Linker and Library 


Manager for Microsoft com- 
patible REL files available 
as a total package with 
Macro Assembler for only 
$95.00 plus shipping 


e Manual only is $15 


"TO ORDER, CALL TOLL FREE: 1-800-367-5134 


For information or technical assistance: 


Specily desired Be" Se soft-sectored format. Personai check, cashier's c 


_ COB welcomed. 5 for postage and handling. — 


d PO. Box 2151 


EXPERT SYSTEMS 


“INSIGHT is essentially the equivalent or better than 
any other tool available for the personal computer.” 


Paul Harmon. author of Expert Systems, Artificial Intelligence in Business 


Turn your PC into an expert. 


Give it Insight, or give it Insight 2. 


Both let you create knowledge base 
systems using any PC-compatible 
text editor. 


Insight not only å mplifies access 
to lots of information, it analyzes 
and offers solutions. For entry-level 
operators it's a perfect procedural 
training package to help build 

and implement knowledge base 
software. 


Level 
Five 
Research, Inc. 


4980 South A-1-A 


Melbourne Beach, Florida 32951 


Insight 2 is more than just an 
"expert." It's a knowledge base 
engineering tool with application 
capabilities. It can call up Pascal 
programs, read and write dBASE US 
files, and its decision-making pro- 
cess can tie in directly tó your 
existing databases. Run-only ver- 
sions also can be developed and 
distributed. 


Two unique packages from the 
same expert idea. 


Insight ™ ($95) and Insight 2 ™ ($485) 
run on the IBM *PC, DEC? Rainbow, and 
Victor * 9000. 


(305) 729-9046 


Circle no. 53 on reader service card. 


The universal, super-efficient 
Lisp for PC-DOS, MS-DOS, 
CP/M-86 and CP/M-80 
systems. 

Waltz Lisp is a very powerful and complete 
implementation of Lisp. It is similar to Franz (the 
Lisp running under Unix), and is substantially 
compatible with MacLisp and other mainframe 

Lisps. 


In independent tests, Waltz Lisp 
Ultra fast. was up to twenty(!) times faster 
than competing microcomputer Lisps. 


The interpreter can directly 

Easy to use. load program files created 
with any ASCII text editor. Full debugging and 
error handling facilities are available at all times. 
No debuggers to link or load. 


: Random file access, binary file 
Practical. support, and extensive string 
operations make Waltz Lisp suitable for general 
programming. A text-file difference program and 
other utilities are included in the package. 


Functions of type lambda (expr), 

Full Lisp. nlambda (fexpr), lexpr, macro. 

Splicing and non-splicing character macros. Full 

suite of mappers, iterators, etc. Long integers (up 

to 611 digits). Fast list sorting using user defined 

comparison predicates. Built-in prettyprinting and 
formatting facilities. Over 250 functions in all. 


: Transparent (yet programmable) 
Flexible. handling of undefined function 
references allows large programs to reside partially 
on disk at run time. Optional automatic loading of 
initialization file. User control over all aspects of 
the system. Assembly language interface. 
Each function is 
Superbly documented. described in detail 
The 300+ page manual includes an exhaustive 
index and hundreds of illustrative examples. 


Order Waltz Lisp now- and receive free our 


PROLOG interpreter 
Clog Prolog is a tiny (but very complete) Prolog 
implementation written entirely in Waltz Lisp. In 
addition to the full source code, the package 
includes a 50 page Clog manual. 


16-bit versions require DOS 2.x or CP/M-86 and 90K 

Á — RAM (more recommended). 
Z-80 version requires CP/M 
2.x or 3.x and 48K RAM 
minimum. Waltz Lisp runs on 
hundreds of different com- 
puter models and is available 
in all disk formats. 


dh 


"Manual only: $30 (refund 
able with order). Foreign orders: add $5 for surface mail. 
$20 for airmail. COD add 53. Apple CP/M. hard sector, 
and 3" formats add $15. MC/Visa accepted. 


SSS Or@rEaəa 


WALTZ LISP 


— 


Lick 


For further information or to order call === 


77 1-800-LIP-4000 oePt.21 ~ 


in Oregon and outside USA call 1-503-684-3000 


TM 15930 SW Colony PI., 
Portland, OR 97224 
2. ODE 


-—— [INTERNATIONAL 
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Conclusion 

Disk Maker I is a solid product 
backed by a competent and coopera- 
tive company that operates as if it 
wants to remain in business for a long 
time. If you are a software developer, 
software distributor, user group, 
large office, or serious hobbyist with 
the need to exchange files between 
computers with various disk formats, 
you should seriously consider Disk 
Maker I or Disk Maker II as an an- 
swer to your needs. 


AMPRO Little Board and 

Bookshelf Computers 

Company: AMPRO Computers, 
Inc., 67 East Evelyn Ave., 
Mountain View, CA 94041 
(415) 962-0230. 

Price: $349 

Circle Reader Service No. 105 

Reviewed by Richard Conn 


The heart of the AMPRO Bookshelf 
Computer? is the AMPRO Little 
Board®, a full-featured single-board 
computer that measures only 53- 
inch by 734-inch and is designed for 
mounting on the back of a standard 
5%-inch minifloppy disk drive. Al- 
though it is small in size, the AMPRO 
Little Board is big in features: the 
Little Board contains all of the hard- 
ware necessary to support a conven- 
tional CP/M environment. 

The Little Board is based around a 
4 MHz Z80A microprocessor and the 
associated Zilog Z80 family of sup- 
port chips. On board this small com- 
puter is: 


e A 4 MHz Z80A microprocessor 

e 64K of dynamic RAM 

* One 4K 2732-type EPROM 

* A Z80A CTC (Counter/Timer 
Circuit) 

e A Z80 DART (Dual Asynchronous 
Receiver / Transmitter) 

* A parallel output port (based on D- 


type latches) 
* A Western Digital 1770 Floppy 
Disk Controller Chip 


The AMPRO Bookshelf Computer 
is an AMPRO Little Board computer 
housed in an attractive case with one 
or two 5l!4-inch floppies, built-in 
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power supply, two 25-pin EIA RS- 
232C connectors, one Centronics con- 
nector, and a connector for tagging on 
up to two more 5'4-inch floppies. An 
ON/OFF switch and a RESET switch 
are available on the front panel. 


The AMPRO Little Board 
Computer 


Hardware 

The Little Board has two possible 
memory configurations, which depend 
on the setting of an EPROM-enable 
bit in the Board Control Register. En- 
abling the EPROM establishes the fol- 
lowing memory configuration: 


Address (Hex) Memory Element — 
0000 - OFFF 2732 EPROM 
1000 - 7FFF 2732 EPROM 
duplicated on each 
4K group 
8000 - FFFF RAM 
If the EPROM is disabled, all memo- 
ry from 0 to OFFFFH is enabled as 
RAM. 

A Z80 DART and RS-232C line 
drivers provide the serial input /out- 
put ports. The DART is an asynchro- 
nous device, providing for baud rates 
up to 38,400 on its A channel and 
9600 on its B channel in the Little 
Board configuration. The Little 
Board does not implement all of the 
RS-232C signals on its two serial 
channels. Only the following signals 
are provided: 


e Serial Data Output (RS-232C pin 
3) 

e Serial Data Input (RS-232C pin 2) 

e Request to Send Handshaking 

| Output (RS-232C pin 5) 

* Clear to Send Handshaking Input 
(RS-232C pin 20) 


Both channels of the DART are 
wired as DCE (Data Communica- 
tions Equipment), which is the com- 
plement of DTE (Data Terminal 
Equipment)—the wiring of the RS- 
232C connector on computer termi- 
nals. Notably missing from this list is 
the Data Carrier Detect signal. You 
may use the Clear to Send signal in 
place of Data Carrier Detect. 

The parallel port is an output-only 


port, wired in a Centronics-standard 
configuration. The Z80 CTC on the 
Little Board provides four counter/ 
timers for use in conjunction with the 
hardware and software of the 
computer. 

The Western Digital 1770 Floppy 
Disk Controller chip used in the Lit- 
tle Board design can work with just 
under 400K per disk on double-sided, 
48 tracks-per-inch (TPI) drives and 
just under 800K per disk on double- 
sided, 96 TPI drives. 


Software 

The AMPRO Little Board is supplied 
with one copy of CP/M 2.2, which 
uses the ZCPR3 Command Processor 
in place of the CP/M CCP. Although 
only the ZCPR3 Command Proces- 
sor, in a less than maximum configu- 
ration, is provided with the Little 
Board, you can obtain a more com- 
plete ZCPR3 implementation from 
Echelon (see below ). 

The ZCPR3 configuration distrib- 
uted with the Little Board provides 
CP/M 2.2 compatibility while simul- 
taneously presenting the following 
additional features: 


e Multiple commands per line, sepa- 
rated by semicolons, enabling 
command lines like DIR;ERA 
* BAK;DIR 

e Automatic command search path 
that searches through directo- 
ries in the following sequence 
when looking for COM files: (1) 
current disk, current user; (2) 
current disk, user 0; (3) disk A, 
current user; (4) disk A, user 0; 
(5) disk A, user 15; and (6) cur- 
rent disk, user 15 

e Four-element shell stack, so shells 
other than the ZCPR3 Com- 
mand Processor can act as the 
user interface to the system 

e Several built-in commands, includ- 
ing: GET—load file anywhere 
in memory; JUMP—call sub- 
routine anywhere in memory; 
and LIST— print file on printer 

* Extended directory references over 
normal CP/M: D:—reference 
disk (ean TYPE B:MYFILE- 
.TXT); U:— reference user area 
(e.g., DIR 5:); and DU:—refer- 
ence disk and user area (e.g., 
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ERA B7:*.*) 


See articles in Dr. Dobb's, Com- 
puter Language, Byte, and other such 
magazines for more information on 
ZCPR3. The authorized agent for 
ZCPR3 is Echelon, Inc., 101 First St., 
Los Altos, CA 94022 (415) 948- 
3820. The ZCPR3 RCP/M and BBS 
are also available to you at 
(415) 489-9005. 

The nine standard CP/M utility pro- 
grams (ED, DDT, PIP, etc.) and thir- 
teen additional utility programs are 
supplied with the Little Board. Includ- 
ed in this list is MULTIDSK, which al- 
lows the user to dynamically select one 
drive to support any one of over 40 dif- 
ferent 5'4-inch floppy disk formats, 
and 48TPI, which allows the user to 
read 48 TPI disks on a 96 TPI drive. 

One nice option that AMPRO gives 
the customer is that of purchasing the 
source code to several key programs 
at a reasonable price. The customer 
may purchase the Technical Support 
Software package, which includes 
the source files for MULTIDSK, the 
BIOS, and the BOOT. 


Pricing 

The AMPRO Little Board computer 
costs $349. This price includes the sin- 
gle-board computer and all of the soft- 
ware listed above. An extra $50 buys 
the Technical Support Software 
package. 


The AMPRO Bookshelf Computer 


Hardware 

As mentioned above, the AMPRO 
Bookshelf Computer consists of an 
AMPRO Little Board, one or two 51⁄4- 
inch minifloppy disk drives, a built-in 
power supply, two 25-pin EIA RS- 
232C connectors, one Centronics con- 
nector, one connector for attaching up 
to two external minifloppy disk drives, 
and ON/OFF and RESET switches on 
the front panel. The Bookshelf is 


available in the following models: 


Model Configuration 
121 One double-sided, 
48 TPI drive (400K) 


122 Two double-sided, 
48 TPI drives (800K) 
141 One double-sided, 
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96 TPI drive (800K) 
Two double-sided, 
96 TPI drives (1600K) 


142 


Software 

All of the software provided with the 
AMPRO Little Board is also provided 
with the AMPRO Bookshelf Comput- 
er. In addition, a ZCPR3 shell de- 
signed specifically for use on the AM- 
PRO computer is provided (in object 
code only). FRIENDLY is a screen- 
oriented tool that provides a directory 
of files to the user of the current disk 
and allows him or her to perform a 
variety of operations on the files dis- 
played. By simply moving a pointer 
to a desired file and pressing a few 
keys, a FRIENDLY user can copy a 
file, delete a file, view a file on the 
console, print a file on the printer, 
run a program, mark a file for later 
delete or copy with a group, perform 
a sequence of commands on the file 
based upon a preprogrammed menu, 
and perform many more operations. 

FRIENDLY is easy to use, usually 
requiring only a few minutes to learn, 
and it removes casual computer users 
from the CP/M command environ- 
ment, relieving them of the necessity 
of learning how to use CP/M in order 
to use the computer. 

A second software package provid- 
ed with the AMPRO Bookshelf is T/ 
MAKER, a product of T/MAKER 
Company. T/MAKER provides a 
screen-oriented, memory-based edi- 
tor, text formatter, electronic spread- 
sheet, bar graph generator, and file 
management system in one integrat- 
ed package. T/MAKER will run un- 
der conventional CP/M, CP/M en- 
hanced by the ZCPR3 Command 
Processor, or FRIENDLY. Several ar- 
ticles have already been published on 
T/MAKER, and you can obtain fur- 
ther information by writing to T/ 
MAKER Company, P.O. Box 6430, 
Falls Church, VA 22046. 


Documentation 

The documentation provided with the 
AMPRO Little Board is the Little 
Board User's Manual, a mainly 
hardware manual that describes the 
Little Board in great detail. It is well 
written and clear if you have a back- 
ground in digital electronics. 


NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
mnemonics. 
e High level 8087 support. 


Full range transcendentals 
(tan, sin, cos, arctan, 
logs and exponentials) 


Data type conversion and 
I/O formatting. 

e High level interrupt support. 
Execute Forth words from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 
Data General Desktop Model 10 


Kaze RTH 


e Fully Optimized & Tested for: 


IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 


LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


e Graphics & Text 
(including windowed scrolling) 


e Music - foreground and 
background 

includes multi-tasking example 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management Support 
Full megabyte - programs or 
data 


e Complete Assembler 
(interactive, easy to use & learn) 


e Compare 

BYTE Sieve Benchmark jan 83 
HS/FORTH 47secBASIC 2000 sec 
w/AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 

FASTEST FORTH SYSTEM 

AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $250. 


KS Visa Mastercard bo 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


P.O. Box 2579 
Springfield, OH 45501 
513/390-2087 


Circle no. 44 on reader service card. 
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No documentation on CP/M or the 
standard CP/M programs is provided. 
The first pages of the manual, howev- 
er, give pointers to where to obtain 
this documentation. Also, no docu- 
mentation other than a brief overview 
of ZCPR3 is provided. Again, the 
manual gives pointers to Echelon. 

If you buy the AMPRO Bookshelf 
Computer, you get the Little Board 
User's Manual as well as documenta- 
tion on FRIENDLY and T/MAKER. 
The documentation on FRIENDLY 
and T/MAKER is oriented to comput- 
er users having some limited experi- 
ence with CP/M. 


General Impressions and 
Comments 

I have used the AMPRO Bookshelf 
for several months now. I started 
with the Model 122, which had two 
400K, 48 TPI drives, and am now us- 
ing the Model 142, which has two 
800K, 96 TPI drives. I find its clean 
design, speed, and reliability to be ex- 
cellent. Given my background in CP/ 
M and digital electronics, I found all 
of the documentation on the Little 
Board / Bookshelf to be readable and 
understandable. 

The Bookshelf is a nice computer 
for any user, especially with the 
FRIENDLY shell as a front end. Al- 
though it is a good choice for the first- 
time computer user, as with any com- 
puter, you must overcome a learning 
curve before you can expect effective 
use of the computer. 

The AMPRO BIOS performs well. 
The speed of the disks with this BIOS 
is nice: the disks are faster than most 
5%-inch disk systems I have observed 
and many 8-inch disk systems I have 
used. At 800K per disk with the Mod- 
el 142 (96 TPI drives), I find the disk 
capacity also to be quite reasonable. 

Overall, the AMPRO Bookshelf 
and AMPRO Little Board are good 
computers, but there are a few draw- 
backs for some applications: 

(1) Lack of documentation on CP/M 
and ZCPR3. However, AMPRO sup- 
plies pointers to where you can obtain 
such documentation, at additional 
cost. 

(2) Limitation of serial I/O ports to 
only two serial RS-232C ports and 
one parallel port. Nevertheless, if 
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your needs call for no more than a 
terminal, modem, and printer (as 
many popular computers are config- 
ured today), the AMPRO computers 
are adequate. 

(3) Lack of hard disk support and ex- 
pandability. The Little Board does 
not support hard disks or other such 
devices in its current form. You may 
buy, however, the Little Board SCSI/ 
PLUS Adapter for $99. This adapter 
"piggy-backs" on the Little Board 
and allows you to attach a Winches- 
ter disk drive, slave processor and de- 
vice boards (perhaps for I/O), and 
other facilities. This board, with 
some effort, may eliminate draw- 
backs 2 and 3. 

I am excited about the Little Board 
and the Bookshelf for their applica- 
tions in several environments. As a 
stand-alone personal computer with 
limited I/O resources and disk space, 
these computers are good choices. 
The SCSI/PLUS Adapter promises to 
expand their capabilities. 

For embedded computer applica- 
tions in which 4K of code is enough to 
run the application program, the Lit- 
tle Board provides a nice, inexpensive 
self-contained computer. The 4K 
2732 EPROM can be programmed for 
the application, and 32K of RAM is 
available for data. The two RS-232C 
ports are there, as well as the parallel 
output-only port. No disks would be 
needed for this type of application. 
For embedded computer applications 
with disks, the AMPRO Little Board 
would “piggy-back” on a 5'4-inch 96 
TPI minifloppy and feed off of the 
floppy's power supply. This would 
provide a very small embedded com- 
puter with 800K of disk and 64K of 
RAM. 

As a slave computer to another 
computer, the AMPRO Bookshelf 
with its two disks could act as a back- 
ground batch processor, communica- 
tions controller (for a BBS), printer 
spooler, or other such intelligent and 
flexible slave device. 

Overall, I like the AMPRO Little 
Board and AMPRO Bookshelf and in- 
tend to continue using my Bookshelf 
for a variety of slave computer and 
stand-alone applications (such as 
computer assistance for talks and 
presentations). I recommend it with 


some reservation to first-time com- 
puter users and with no reservation to 
embedded applications designers and 
more experienced computer users. 


BetterBASIC, Version 1.1 

Company: Summit Software, 
P.O. Box 99, Babson Park, 
Wellesley, MA 02157 
(617) 235-0729 

Computer: IBM PC or close com- 
patible with minimum 192K 
and one disk drive 

Price: BetterBASIC $199; 8087 
Math Module $99; Runtime 
System $250 

Circle Reader Service No. 107 

Reviewed by Matthew Trask 


Among the reasons that Summit Soft- 
ware gives for purchasing BetterBA- 
SIC are full 640K memory support, 
separately compiled program mod- 
ules, language extensibility, window 
support, 8087 support, and incremen- 
tal compilation. Although these rea- 
sons would be persuasive in the case of 
another programming language, I 
question whether they will induce 
many programmers to shell out $199, 
the cost of BetterBASIC, when some 
form of GW BASIC (aka BASICA) is 
provided at no charge with most IBM 
type computers these days and an ex- 
cellent Pascal compiler can be pur- 
chased for less than fifty dollars. In 
order to help programmers make a de- 
cision on this purchase, I will discuss 
the unique features of this program- 
ming system, benchmark its perfor- 
mance, and examine the difficulties of 
converting programs from GW BASIC 
to BetterBASIC. 


Installation 

Although the package can be run 
right out of the box by using its de- 
fault configuration, you will probably 
want to configure it to suit your hard- 
ware environment. B.COM is the exe- 
cutable portion of BetterBASIC and it 
uses the file B.CNF to determine 
which of the other modules to load for 
operation. Table 1 (page 110) is a list- 
ing of all the modules that are provid- 
ed on the BetterBASIC disk and Table 
2 (page 110) shows the default config- 
uration. An ASCII editor can be used 
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Electronic 
Circuit 
Analysis 


e New release 

e Transient, AC, DC analysis 
* Full nonlinear 

* Over 200 nodes 

e Full editing 

e Macro circuits 

e Worst case, Monte-Carlo 

* Temperature effects 

e Frequency dependent parts 
* Time dependent parts 


For MS-DOS. 192k minimum. 
$395.00 


Tatum Labs 

33 Main Street 
Newtown, CT 06470 
(203) 426-2184 
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A Proffessional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 
Analyse your software for modification 
disassemble files as large as 64K 
Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8'" SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA90056 
Voice: (213)649-3575 Modem: (213)670-9465 
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Whether you program on the Macintosh, 
the IBM PC, an Apple II series, a CP/M 
e system, or the Commodore 64, your pro- 
` dh gram will run unchanged on all the rest. If 
TM you write for yourself, MasterFORTH will 
idm your investment. If you Ke 
write for others, it will expand = 
your marketplace. aec 
MasterFORTH is a state-of-the-art imple- 
mentation of the Forth computer language. 
| Forth is interactive — you have immediate 
TM feedback as you program, every iin of the 
way. Forth is fast, too, and you can use its «rr 
built-in macro assembler to make it even 
faster. MasterFORTH's relocatable utilities, 
transient definitions, and headerless code == 
let you pack a lot more program into your memory. The 
resident debugger lets you decompile, breakpoint, and 
trace your way through most 
CP/M programming problems. A string 
TM package, file interface, and 
full screen editor are all standard features. 
MasterFORTH exactly matches the Forth-83 Stan- 
dard dialect described in Mastering Forth by Anderson 
and Tracy (Brady, 1984). The standard package in- 
cludes the book and over 100 pages of supplemen- 
tary documentation. 


12077 Wilshire Blvd., 4506 
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to add or delete modules and create 
new configurations. For example, us- 
ers that don't have a graphics card 
may wish to delete GRAPHICS.IBM 
in order to free up memory for pro- 
gram use. I replaced FILE.DOS with 
FILE2.DOS in order to take advantage 
of DOS 2.x subdirectories and added 
SYSCALL.IBM in order to use the 
SHELL command and BIOS/DOS 
calls. You may specify the use of al- 
ternative configurations when starting 
the program by typing B-MYCON- 


— 35415 


_ 27020 

u | 142 
MATH ` 
CONSOLE 
MAIN 
FILE 
GRAPHICS 
PLAY 
EVENT 
FILE2 
CHAIN 
SYSCALL 
COMM 
PLIST 
SECTOR 
STRUC 
SHELL 


473136 
7744 
21072 
2704 
3520 
. 8484 
2542 
6702 
. 2980 
175 


CHAIN | CA 


READ 
20 Filets) 


ng 
1121395 ` 
3340 
19056 
* 10512 


126734 


FIG /c where MYCONFIG is the name 
of the optional configuration file. 

A Tandy 2000 version of the pro- 
gram is also available. The modules 
with the extension .IBM are all re- 
placed with equivalent modules that 
end with .TDY. 


Startup and Operation 

After a sign-on message and copy- 
right notice you will see the first major 
difference between BetterBASIC and 
GW BASIC: instead of the usual 


1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1024 bytes free 


a Table 1 
Directory listing of the BetterBASIC diskette showing the many 
. modules that make EP the Better BASIC system. 


MODULES = MATH.BCD 
MODULES = CONSOLE.IBM 
MODULES= MAIN 
MODULES =FILE.DOS 
MODULES = GRAPHICS.IBM 
MODULES=EVENT.IBM 
MODULES —PLAY.IBM 


STATUS=ON 


Table 2 
The default B.CNF configuration file. 
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"60891 Bytes free" message, a 512K 
machine will display "Left:260304 
bytes.” All available system memory 
is used as BetterBASIC’s workspace. 
This allows much larger programs to 
be written. BetterBASIC supports 
most of GW BASIC’s commands, in- 
cluding the on-screen editing keys 
that are used on the IBM PC. Table 3 
(page 111) contains a complete listing 
of GW BASIC commands that are dif- 
ferent or not supported and a list of 
new commands that are found in Bet- 
terBASIC. 

Every statement that you enter is 
checked for syntax and then com- 
piled. If you make a mistake when 
entering a program line, an error 
message will be given immediately. 
For example: 


40 PRINT (1 +2*3 


* ) " Expected 


If the statement is entered correctly, it 
is compiled to virtual-machine code 
rather than being interpreted at run- 
time, thus giving a large speed im- 
provement over the GW BASIC 
interpreter. 

As in Pascal and C, all variables 
are declared at the beginning of the 
program. The exception to this is the 
AUTODEF command, which allows 
automatic declaration of a variable 
by the first assignment of a value. 
AUTODEF defaults to ON, but if you 
turn it off, the compiler will catch 
misspelled variable names. The data 
types that are supported in BetterBA- 
SIC are byte, integer, real, string (up 
to 32,767 characters), array, pointer, 
and structure. Structures are identi- 
cal to Pascal's record data type and 
may contain any other data type. Ar- 
rays can contain byte, integer, real, 
and string data as well as structures 
and other arrays, thus allowing ar- 
rays of arrays, arrays of structures, 
and structures of arrays. 

A BetterBASIC programming ses- 
sion superficially resembles one in 
GW BASIC in that lines are num- 
bered and most of the command 
keywords are identical. When saving 
to disk, however, you must specify 
the file's extension because .BAS is 
not assumed by BetterBASIC. At the 
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end of a session you can exit to DOS 
with the SYSTEM command or by 
typing BYE. 


Unique Features of BetterBASIC 

The best feature of BetterBASIC is 
the use of true procedures with vari- 
ables of local scope that exist only in- 
side the procedure. Global variables 
can be used by declaring them as EX- 
TERNAL in the procedure and pro- 
viding the actual declaration at a lev- 
el outside the procedure. A procedure 
can be declared as RECURSIVE if its 
name is declared as EXTERNAL in- 
side the procedure. GOSUB and RE- 
TURN are both supported, but as you 


gain experience with BetterBASIC, 
they will probably fall by the wayside 
in favor of these Pascal-like, para- 
meterized procedures. In addition to 
passing arguments by value or refer- 
ence, you may specify optional and/ 
or default arguments. 

One particularly distinctive aspect 
of BetterBASIC is the ANY ARG dec- 
laration. This allows a procedure or 
function to determine what type of 
data was passed to it at runtime with 
the following functions: 


TYPE( ) extracts the type of da- 
tum 
DIM( ) extracts the dimensions of 


a datum 
SIZE( ) extracts the size of a 
datum 


For example, A — TYPE(FOO) will as- 
sign the following values to A: 


if FOO is a byte 
if FOO is an integer 
if FOO is a real 
if FOO is a string 
if FOO is a structure 
0 +N if FOO is an array of 
above type N 


0 
l 
2 
3 
4 
l 


If TYPE(A) returns 3 for string you 


GW BASIC Statements Not Supported in BetterBASIC 


BLOAD BSAVE CDBL CSNG 

CVI CVS CONT DEFDBL DEFINT 

DEFSTR DEF FN DEF USR EQV 

ERL FIELD FRE GET IMP 

MERGE MKD MKI MKS 

ON PEN ON STRIG PEN PMAP 

RESUME STICK STRIG TROFF 

USR VARPTR VIEW WEND WINDOW 

New BetterBASIC Statements 

ANY ARG ASH AUTODEF 

BYTE BYTE ARG BYTE ARRAY 

BYTE PTR CHECK CODE 

COLOR BORDER  COMPRESS CONSTANT 

DEL$ DO . . END DO DO IF 

DYNAMIC EDIT proc ERROR 

EXIT nLEVELS ` EXTERNALorEXT | FRAME WINDOW 

INPUT FROM INS$ INTEGER or INT 

INT ARRAY INT ARRAY STRUC INT FUNCTION 

INTERRUPT INTERRUPT PROC KEYWORD ARG 

LIST ALL LIST ARGS LIST PROCS 

MAIN MAKE MODULE. MAKE PROGRAM 

ON INTERRUPT PRECISION PROCEDURE 
or PROC 

READCHR READCHR FROM READLINE 

REAL REAL ARRAY REAL ARRAY 
STRUC 

REAL FUNCTION REALPTR REPEAT 

RESTORE SCREEN RESULT = ROT 

SAVE SCREEN SEG SET 

SIZE SPAN STRING or STR 

STR ARRAY STR ARRAY STRUC STR FUNCTION 

STRUCTURE UPPER$ WHILE . . DO 

Table 3 


CVD 
ERASE 


MOTOR 
PUT 
TRON 


BYE 

BYTE ARRAY STRUC 
CODE? | 
DEFINE WINDOW ` 
DO UNTIL ~ 
EXIT 

HEADER 

INT ARG 

INT PTR 

LINES 

LOWER$ 

OFFSET 

PUBLIC 


READLINE FROM 
REAL ARG 


REPEAT IF 
SAVE MODULE 
SH 

STR ARG 

STR PTR 

XREF 


A comparison of BetterBASIC and GW BASIC Keywords 
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|) daetumplindsr the 
. Macintosh" | 


| Powerful, expandable, yet affordable: 
. W A friendly integrated environment complete with 
 ascreen editor, full K&R C compiler, linker, 
source-level debugger, tutorial, standard € 
library, and structure definition files. 
ü Access to over 400 Toolbox routines. 
8 Convenient access to serial ports and sound 
W Over 200 pages of documentation and many 
sample programs. 
ü Upgradable to Hippo-C Level 2 for $250.00. 
E New version 1.2. 
m $149.95 


LEVEL 2 

Professional C development system: 

W Allows for the creation of large, stand-alone 
commercial applications. 

W Comes with a screen editor, optimizing K&R C 
compiler, 68000 assembler, linker, € library, 
stdio package, full floating-point support 
(including math and trig functions), and 
structure definition files. 

W "Glue" routines which allow easy access to 
Macintosh features. 

m UNIX" -like shell which includes many powerful 
commands and utilities. 

W Convenient access to over 500 Toolbox routines. 

m Documentation, many sample programs, and 
sources. 

m No royalties or license fees. 

® You may obtain a non-copy protected disk by 
signing and returning a form along with $25.00 
to Hippopotamus. 

m $399.95 


The Hippo Business Data 
Security System 


W Encrypts all of vour important Macintosh files to 
u protect them from curious eyes. Encrypts Mac- 
Write documents, MacPaint pictures, data bases, 


W Useful for protecting confidential information 
such as business plans, pavroll information, sales 
projections, employee reviews, management pro- 
posals, grades, etc... 

ü Choose between three levels of security. 

= Uses the NBS DES Data Encryption Standard, 

used widely by major corporations and the U.S. 
Government. 
m $119.95 


— SOFTWARE INC. 
1250 Oakmead Parkway Suite 210 
Sunnyvale, CA 94086 
| (408) 738-1200 
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spreadsheets, data files, application programs, etc. 


- orders. California residents add local sales tax. Please include $10 
for shipping and handling. Export of Hippo-Lock may be limited by 
law and subject to license. Macintosh is a trademark of Apple Com- 

. puter, Inc. UNIX is a trademark of AT&T Bell Labs. Hippo-C and 
Hi i Software, Inc. Please 


allow 1—2 weeks for delivery. Price, availability, and specifications 


can determine its allocated size (not 
length) with SIZE(A). If FOO is a 
structure, DIM(A) will return the 
number of fields and TYPE(FOO(N) ) 
will return the type of field N. This 
flexibility of optional /ambiguous pa- 
rameter passing can be a tremendous 
improvement over Pascal’s rigid 
requirements. 

BetterBASIC has a concept called 
Procedure Families in which more 
than one procedure or function can 
have the same name with the only 
distinction being the parameter list. 
This allows BetterBASIC to select 
which one to use based on the type of 
argument that is used. As an exam- 
ple, the two procedures that follow 
can be used to give informative error 
messages on integer input, rather 
than GW BASIC’s cryptic “Redo 
from start.” 


PROCEDURE: IntegerInput 

INT ARG Value 

10 INPUT Value 

20 PRINT “Your integer is ”, 
Value 


PROCEDURE: IntegerInput.a 

STRING ARG SomeString 

10 PRINT SomeString, “‘is not a 
valid integer, please try again" 


In this example, IntegerInput.a will 
be used any time a valid integer is not 
entered when IntegerInput is called. 
This technique can also be used to as- 
sign additional functionality to Bet- 
terBASIC's reserved words. 

Functions are similar to proce- 
dures in that they share all the same 
data types. The difference is that 
they are used in expressions to return 
a value that is used in the expression. 
The last statement of a function must 
be RESULT - and the value that is to 
be returned. 

Both procedures and functions can 
use KEYWORD ARGuments—a con- 
cept that is similar to Pascal's user- 
enumerated data types. If an argu- 
ment is declared as 


KEYWORD ARG:Color 
\RED\GREEN\BLUE 


then the procedure will accept either 
RED, GREEN, or BLUE as valid data 


for Color. 

BetterBASIC has a full comple- 
ment of flow-controlling block struc- 
tures. In addition to the usual FOR- 
..NEXT, IF.. THEN, and WHILE.- 
.REPEAT, BetterBASIC has DO 
UNTIL..REPEAT, DO..REPEAT, DO 
n TIMES..REPEAT, DO..END DO, 
DO.REPEAT, DO IE:REPEAT IF, 
and more. GOTOs are implemented 
in a way that could placate even Dijk- 
stra—they cannot be used to enter or 
exit a control block. The only way out 
of a control structure is via the EXIT 
statement, and then only to the state- 
ment that immediately follows the 
block. 

Variables can be declared as abso- 
lute by adding a segment and offset 
after the declaration. BYTE ARRAY- 
(4000): VideoBuffer [&hB000:0] is 
an absolute reference to the IBM's 
2000 character monochrome video 
refresh buffer. This technique can be 
used to access the BIOS communica- 
tion area in low memory for equip- 
ment determination. 

The BetterBASIC language can be 
extended by adding your own proce- 
dures and functions to the language 
as keywords. The MAKE MODULE 
command will convert all procedures 
and functions currently in memory to 
a module that can be added to the 
B.CNF configuration file. Like C lan- 
guage function libraries, useful pro- 
cedures can be distributed to other 
BetterBASIC users as modules with a 
good degree of source code protection 
because the source code cannot be de- 
rived from a module. Summit Soft- 
ware is currently selling an 8087 
module and expects to offer an inter- 
face module for the SoftCraft Btrieve 
system sometime this spring. 

Programs can be prepared for 
standalone execution with the MAKE 
PROGRAM command and the option- 
al Runtime System. The Runtime 
System consists of RUN.COM, 
RUN.$$$, and MKEXE.COM. RUN- 
.COM will execute any program that 
has been prepared with MAKE PRO- 
GRAM and MKEXE.COM appends 
the RUN.$$$ runtime library to a pro- 
gram file for stand-alone execution. 

Assembly language support is 
pretty straightforward with a very 
good example given in Appendix G of 
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the manual. The keyword CODE is 
used instead of BLOAD in order to 
load an assembler module into mem- 
ory at runtime. CODE? can be used to 
report the absolute load address if de- 
bugging is necessary. The assembly 
language procedure is then invoked 
by CALL procedurename(arglist) 
just as in GW BASIC. An assembly 
language module can contain one or 
more procedures with a Symbol Ta- 
ble at the beginning that defines the 
entry point for each procedure in the 
module. The excerpt from the Better- 
BASIC manual in the Listing (page 
116) will give the flavor of assembly 
language interfacing. 

Also worthy of note are the XREF 
command and the debug window. 
XREF generates a symbol cross-ref- 
erence of all user-declared identifiers 
and the line numbers on which they 
appear. Advanced programmers may 
wish to use the DOS debug program 
to test programs that are developed in 
BetterBASIC. If they start with DE- 
BUG B and then execute BetterBA- 
SIC inside DEBUG, the [Ctrl-PgUp] 
keys will exit to the debug prompt. 


Current Version 

The current version of BetterBASIC 
is 1.1. I received the upgrade from 1.0 
to 1.1 during the review. New fea- 
tures supported include CHAINing 
and CALLing modules as overlays, 
communication between overlays via 
disk, SYStem calls for access to BIOS 
and DOS functions, and a SHELL 
command that can be used to execute 
programs (such as COMMAND- 
COM) from within BetterBASIC. 
The new XMEM keyword allows data 
structures such as arrays up to the 
limits of system memory, not just 
64K as in v1.0. Also, the release notes 
describe bug fixes that were applied 
to this new version. 

Summit Software informs me that 
all registered users will be provided 
with free updates to v1.1, with a copy 
of the new documentation on the disk 
and an option to purchase printed 
documentation for $15. I also re- 
ceived test versions of the MATHI- 
.BNY and MATH2.BNY (single and 
double precision binary math) that 
are significantly faster than 
MATH.BCD, but less precise. By the 
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time you read this, both modules 
should be included in the standard 
BetterBASIC system in addition to 
the BCD math module. 


Benchmarks 

I compared the performance of Bet- 
terBASIC and GW BASIC by running 
Rich Malloy's four BASIC bench- 
mark programs that I downloaded 
from the Byte bulletin board. These 
tests separate I/O from computation 
to give fairly accurate representa- 
tions of speed. With one exception 
(see Table 4, page 114), BetterBASIC 
was the better performer by far. The 
exception was in the floating point 
calculations, where the BCD math 
module was about 30% slower than 
GW BASIC. The new single precision 
binary math module ran about twice 
as fast. 

Round-off error can be of concern 
in business and financial program- 
ming. Although  MATHI.BNY 
showed no error in this benchmark 
(compared to GW BASIC's — 1.788 
E — 07 error), it is probably well worth 
the slower speed of MATH.BCD to 
have guaranteed zero error in finan- 
cial calculations. 

The Runtime System, unlike the 
BASCOM compiler, will not show an 
improvement in execution speed. This 
is because BASCOM generates native 
8086 code while MKEXE and RUN- 
COM only provide a stand-alone Bet- 
terBASIC environment to run the vir- 
tual-machine code that is produced by 
the MAKE PROGRAM command. 

These benchmarks were run on an 
IBM PC with 512K of RAM, 10Mb 
hard disk, and a monochrome display. 
I have also successfully run BetterBA- 
SIC on a Leading Edge PC/XT, a 
PCjr, and a Hyperion PC with no diffi- 
culty. 


GW BASIC Program Conversion 

To put it bluntly, there is no easy con- 
version from GW BASIC to BetterBA- 
SIC. There is a simple procedure out- 
lined at the end of the manual that 
involves editing an ASCII version of 
the original. The keywords SOURCE 
and ENDFILE are added at the start 
and end of the file for compatibility 
with BetterBASIC's LIST ALL ASCII 
storage format. In addition, variable 
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CO-PROCESSING 


The most cost effective way for Z80 
system owners to obtain 16/32 bit 
processing power and software 
compatibility is via the HSC CO-16 
Attached Resource Processor. 


CO-16 is compatible with any Z80 
system running CPM 2.2 or CPM 3. 
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CO-1686 
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e 3-channel Real Time Clock * Runs 
many IBM PC applications * Shares 
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systems e CPM86 * Concurrent 
CPM is coming. 


CO-1668 
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declarations must be made at the 
start of the file. If you don't declare 
the variables, they will be defined on 
use, but all integers will be defined as 
reals with the resultant loss of speed 
and precision that comes from the use 
of the real data type. 

I was able to convert with no diffi- 
culty trivial programs such as the 
Byte benchmarks, and one fairly 
lengthy musical program canie over 
without much modification. Howev- 
er, large programs such as PC-TALK 
or RBBS-PC would be easier to re- 
write from scratch with BetterBASIC 
than they would be to convert. This is 
because of major philosophical dif- 
ferences in the use of procedures and 
the use of structures for file I/O rath- 
er than FIELDs in an I/O buffer. 
Conceptualiy, it would probably be 
easier to translate a Pascal or C pro- 
gram than an existing GW BASIC 
program. 

Refer to Table 3 for a complete 
summary of the differences between 
the two BASICSs. 


The Documentation 
If there are two words that describe 
the BetterBASIC documentation, 
they are massive and thorough. The 
manual is an IBM-style 5% by 8-inch 
slip-cased binder with over 550 
pages! It is broken up into seven sec- 
tions: General Information, Intro- 
duction to BetterBASIC, Quick Ref- 
erence, Syntax Visuals, Appendices, 
and two new additions for vl.1— 
Chain/Overlays and Syscalls. 

The syntax visuals are comparable 
to the IBM BASIC manual with one 


BENCH1.BAS— write 64K bytes out to a file 
BENCH2.BAS—read 64K bytes in from a file 
BENCH3.BAS— 5000 floating point operations 


BENCHA4.BAS— calculate all primes from 1 to 7000 


or more pages in alphabetical order 
to describe each command and show 
examples of proper usage. The intro- 
ductory chapter is very well done 
with an excellent tutorial. It is geared 
to beginners, but will provide a re- 
fresher for experienced BASIC pro- 
grammers. It includes in the lesson on 
recursion a discussion of static versus 
dynamic storage of variables that will 
be useful to many microcomputer 
programmers. The presentation of 
variable scope and side effects in the 
procedure section will be helpful to 
those programmers whose only previ- 
ous experience is with other BASICSs. 
Appendices include an ASCII code 
table, keyboard scan codes, inter- 
rupts, character sets, module usage, 
module defined statements, use of 
Assembler, error codes, and GW BA- 
SIC conversion hints. 


User Support 

Because Summit Software is still a 
small company, any phone calls in 
search of support will be handled by 
one of the program's developers. This 
kind of direct access can be wonder- 
ful, especially when problems involve 
the more complex aspects of the sys- 
tem. There is no charge for phone sup- 
port for registered users and Summit 
can be reached during business hours. 


Complaints 

As in all new products, there is still 
room for improvement. My main 
gripe has to do with errors in the man- 
ual. Until I received my v1.1 upgrade, 
I could find no reference to the PUB- 
LIC keyword that is necessary for pre- 


14.6 
10.4 


35.2 


Table 4 


92.9(BCD) 
37.2(BNY) 


paring to MAKE MODULEs. There 
also seems to be some confusion when 
conceptual words from other lan- 
guages are used interchangeably with 
BetterBASIC keywords; structure and 
record are used in this fashion, al- 
though record is never defined to 
mean the same as structure. 

Some of the error codes that the 
compiler can generate are similar to 
the warnings of other compilers. I'd 
like to see the compiler add some of 
the missing parentheses that it can 
detect, rather than just notifying the 
programmer. Also, you cannot speci- 
fy a program on the command line to 
be executed by BetterBASIC. This 
precludes the use of B SETCLOCK to 
read your clock/calendar in an AU- 
TOEXEC.BAT file. 

There is no provision made for trac- 
ing program execution, as TRON/ 
TROFF are not supported. I hope the 
people at Summit are listening and 
provide a trace that, unlike GW BA- 
SIC's primitive version, can also show 
variable contents, not just line num- 
bers. 

My final complaint has to do with 
price—there is a hidden cost that a 
potential developer must keep in 
mind. If you plan to market the soft- 
ware you develop with BetterBASIC, 
you will need to purchase the Run- 
time System for an additional $250 
so your customers will be able to run 
your program without the necessity 
of purchasing their own copy of 
BetterBASIC. 


Conclusions 
So who will find this package useful? 


BetterBASIC GW BASIC 


43.3 
29.1 
69.4 


208.1 


Performance Benchmarks (All times in seconds) 
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Probably not the C wizards and 
Forth gurus of the world. They will 
feel restrained by the line numbering 
and the lack of mysterious, syntactic 
constructions. Pascal programmers 
will feel right at home with proce- 
dures that have local variables and 
statements like READLINE. I think 
this package will find its place mostly 
among programmers who are cur- 
rently developing vertical market 
(i.e., business) software in BASIC. 

A large percentage of software 
that is created for vertical markets, 
such as insurance agencies, medical 
practices, video rental clubs, and ac- 
counting firms, is written in some 
form of the BASIC language. One 
reason that is often given for this dis- 
proportionate popularity is that BA- 
SIC is available in some form on most 
personal computers, thus providing a 
greater market when the software is 
ported to a new machine. However, 
because of the widespread availabil- 
ity of Pascal and C compilers for mi- 
cros in recent years, I think this rea- 
son is less important than the fact 
that much vertical market software is 
not developed by trained professional 
programmers. Often an accountant / 
car salesman/real estate broker/ 
farmer who has learned a little BA- 
SIC on a personal computer realizes a 
need for some industry-specific piece 
of software. This combination of in- 
dustry expertise and programming 
experience can result in a very suc- 
cessful program. 

In the words of Ivar Wold, Sum- 
mit's president, these people are 
faced with the "Pascal Dilemma" — 
they intend to learn Pascal or C but 
haven't found the time for it yet. 
With this package, a BASIC pro- 
grammer will be able to write better, 
more maintainable code without the 
learning curve that is associated with 
learning a new language from 
scratch. After using BetterBASIC, it 
will be easy to pick up Pascal with 
very little effort, as all of Pascal's 
concepts can be found in BetterBA- 
SIC. However, BetterBASIC may 
provide just the excuse never to have 
to learn a new language again. 


DDJ 
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Get the full range of features C pro- 
grammers working in UNIX?" have 
come to expect from their Lint and 
Make utilities. With Pre-C™ you can 
detect structural errors in C programs 
five times faster than you can with a 
debugger. Find usage errors almost 
impossible to detect with a compiler. 
Cross-check multiple source files and 
parameters passed to functions. Un- 
cover interface bugs that are difficult 
to isolate. All in a single pass. Capa- 
bilities no C compiler, with or without 
program analyzing utilities, can offer. 
Pre-C outlints Lint, since you can 
handle analyses incrementally. 


Pre-C's flexible library approach lets 
you maintain continuity across all 
programs in your shop, whether you 
use Pre-C's pre-built libraries, func- 
tions you already have, or some you 
might want to buy. 


Plus, you're not limited to one partic- 
ular library. Pre-C keeps track of all 
the libraries you're using to make 
sure that code correctly calls them. 

With Pmaker™ you can update and 
track every module in your program. 
When you make a change in any 
source or include file, all you do 


Make for MS - DOS 


is run Pmaker. It will recompile 
changed modules and relink your 
program. With any compiler or linker 
you choose. Pmaker can update an 
object module library when one or 
several of the object modules are 
changed. You can use Pmaker to 
handle any task when a change 
requires several steps. 


pmaker 


Pre-C by Phoenix. $395. Pmaker 
by Phoenix. $195. 

Call (1) 800-344-7200. 
In Massachusetts (617) 762-5030. 

Or, write: Phoenix Computer 
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Highway, Suite 115, Norwood, 
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Bet f er Basic Lis ting (Text begins on page 108) 


:7-- define the 


symi db 
db 
du 
cha 


sym db 
db 
dis 
diy 


symå db 


even 


headeri dw 
di 


£494 


y language interface to a BetterBASIC program 


Symbol Table 


Symz-$ 
"EXCHANGE" 
ü 

headeri 


sym3-$ 
“PEL 
ü 
header? 


link to next symbol table entry 
name of the Procedure 

til] word š MUST be here 13 
:polnter to Procedure header 


slink to next symbol table entry 
name of the Procedure 

Ti ET word GC MUST be here +13 
pointer to Procedure header 


Symbol Table Terminator 


heåders must be on 
: WORD hau ndar y 


MUST be 154h 

:polnter to actual asm procedure 
number of Arguments 

(type of argument ü iintegenr? 
type of argument i (Integer) 


MUST be 1535 

pointer to actual asm procedure 
number ot Arguments 

type of argument Ü (String? 
itype of argument i (Integer 


procedures proper 


proc far 


endp 


proc far 


endp 


MUST be a far proc 


; the EXCHANGE code 


| the FILL code 


End Listing 
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/source debugger 
for lattice C 


Your time and convenience come 
f first! The MSD C Debugger" is the last, 
d and perhaps final, word in programming 


Å assistance for Lattice C users. C Debugger 
produces a high level view of C programs 
via function names, line numbers, variable 
names and C data types, plus a low-level view 
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e All documentation is prepared for 
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process. 
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312/377-5151 


Lattice C is a trademark of Lattice, Inc. 
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Volume One—with authors like Steve Wozniak, Dennis 
Allison, Sol Libes, and more—to the technical maturity of 
Volume Seven, Dr. Dobb’s Journal Bound Volumes are 
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tain many issues which are no longer available and you 
get twelve issues for the price of seven individual back 
issues! 
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$30.75 for volume 7, or $165 for all seven and SAVE! 
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The Tools 
< You Need 
To C You Thru. 


Now the W%ardWax Applications Programmers Toolkit provides 
everything you need to increase your C programming productivity. 


APT" features include: 
€ COMPLETE SOURCE CODE (over 5000 lines!) 
€ File handling with direct & keyed access 
€ Screen and Report Generators, with full screen handling for your programs 
€ Generic Terminal Driver for portable code 
€ String math functions, and string manipulation routines 
@ Reference Manual on Disk (over 50 pages) 
€ Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
€ A host of useful Utilities, Database and File Editors 
9 Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C-STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and "Programming in C on the IBM-PC" (200 pages) 
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Microprocessor 
Software Development 
on VAX qr PDP-11. 


You can develop software 
for Z80, 8080, 8085, NCS800, and 
8086 using native mode compilers and assemblers. 


Use low-cost cross tools for other micropro- 
cessors. Interface in-circuit emulators perfectly. You 
can run Intel development tools under ISIS or UDI. 

Our plug-in processor cards let you run CP/M-80, 
CP/M-86, or MS-DOS from any terminal on your 
VAX or PDP-11 system. 

Prices start at just $1295. Ask for our FREE 
catalog of 350 deep and cross development 
tools. 


3375 Scott Blvd., Suite 236 
Santa Clara, CA 95054 


Decmatfion (408) 980-1678 


Registered Trademarks: VAX, PDP-Digital Equipment Corporation; CP/M-80,86 Digital 
Research; MS-DOS-Microsoft Corporation; ISIS; UDI-Intel. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


68000 Square Root 
Routine 


Jim Cathey of Spokane, Washington, 
writes: "To help [eliminate] the 
dearth of 68000 programming good- 
ies you were mentioning, here is an 
integer square root program. It takes 
only about 10—11 times as long to ex- 
ecute as a divide instruction. I found 
this algorithm a few years back in 
EDN .... I thought it was a nifty 
trick, and saved a clipping for when I 
needed it. Two muls instructions, one 
add.l, and this subroutine implement 
a true 16-bit vector length subrou- 
tine, in less than 2000 cycles (250 mi- 
crosec. at 8 MHz)! 

"The original program (and my 
first attempt) had a bug, in that the 
intermediate variables were half the 
size of the input data. This works until 
the last trip through the loop, where 
you may have overflow errors that 
could ruin the accuracy. For speed, 
the main loop could be unrolled using 
word intermediates for the first 15 
passes, and long on the last loop- 
equivalent. This should save some 
time if it's a problem. Of course, if 
speed is really a problem, one of the 
approximations for vector length you 
presented a while back would be many 
times faster." See Listing One (page 
122) for the source code for Jim's 
68000 square root routine. 


MacFeedback 


Jim Howell of San Jose, California, a 
regular correspondent to DDJ, writes: 
"I am writing regarding your recent 
rather disparaging comments (DDJ, 
December 1984, 498) on the Macin- 
tosh. I believe it is much too early for 
you to be forecasting the demise of 
the Mac. So ‘only’ 200,000 Mac's 


were delivered in its first year. How 
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many IBM PC's were delivered dur- 
ing its first year? And have you for- 
gotten that even a year after the IBM 
PC came out, people were still com- 
plaining about the lack of software 
for it? As for comparing the Mac's 
‘lackluster sales’ with the Lisa, I 
would guess that there are already 
more Macs than Lisas. 

“One point I will agree on is the dif- 
ficulty of developing software for the 
Mac. If Apple really wants lots of 
software for it, they need to make the 
required technical documentation 
available (and at a reasonable price). 
Development tools (compilers and as- 
semblers) need to be able to run using 
a single Mac. There was an ad in 
Infoworld recently for a Mac assem- 
bler ‘that requires no other hardware 
or software.' I don't know much about 
the availability of other language pro- 
cessors for the Mac, though I suspect 
(and hope) that most of them will be 
usable with only a single Mac. As for 
"weak, bug-ridden' high-level lan- 
guages, again consider the IBM PC. 
That's probably a fair description of 
many of the language processors that 
were available for the IBM PC during 
its first year. IBM's Pascal compiler, 
for example, is atrocious. 

“I also agree that a 68000 assem- 
bler should be able to run with 128K 
and one disk drive, but comparing 
that to the DRI 8080 assembler that 
ran in 32K is very unfair. 8080 as- 
sembly language is much simpler 
than that of the 68000. The 68000 
has more addressing modes, more in- 
struction formats, and its assembly 
language has a more complex syntax. 
Also, the DRI 8080 assembler must 
have been a bare-bones, absolute as- 
sembler. A bare-bones 68000 assem- 
bler could be written to run on a 64K 
CP/M system (but probably not on a 
32K system). A similar assembler 


should run, therefore, on a 128K 
Mac. However, I would assume that 
Apple does not want to put out just a 
bare-bones assembler. If, for exam- 
ple, the Apple assembler generates 
object code that can be linked with 
separately compiled or assembled 
modules, this would add considerable 
complexity to the assembler. 

"While a Mac assembler should be 
able to run in 128K, I don't think it's 
a big problem if it does not. Anyone 
doing serious software development 
on the Mac will have to have 512K 
(the next step after 128K) and two 
disk drives, even if some of the tools 
run in 128K. After all, how many de- 
velopers of IBM PC software have 
only 128K in their machines? And 
even fewer have only one disk drive. 

“I will be like the other readers who 
requested 68000 material and not 
submit any 68000 code. Like most of 
these readers (probably), I am inter- 
ested in the 68000, but do not actually 
have a 68000 system. Therefore, I also 
do not have any 68000 code to submit. 
With the attitudes expressed in your 
column about the 68000 (and about 
Intel’s 80286), one wonders whether 
you would want to include any 68000 
code or material anyway. 

"Finally [in reference to another 
column on identifying IBM PC envi- 
ronments], location F000:FFFEH on 
my Corona contains OFEH, just like 
the PC/XT. Apparently, they want 
software to think it's running on an 
XT, just in case a hard disk happened 
to be attached (yes, I do own an IBM 
compatible, though I like my 6809 
system better). The AT&T computer 
that we use at work has 00 (zero) at 
that location (the date in the ROM is 
05/03/84)." 

This letter from Jim neatly illus- 
trates the polarization that the Mac 
has induced within the programming 
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community. There is a certain class of 
people who are dazzled by Apple's 
“insanely great" publicity and will 
forgive the Macintosh anything. 
There is another group, among whom 
I guess I must number myself, who 
find Apple's pretentious advertising 
and grandiose claims a little ridicu- 
lous, considering that almost every- 
thing that's good about the Mac's user 
interface was "borrowed” directly 
from the Xerox Star that has been 
around for ten years. Speaking of pre- 
tentious, see the recent P/ayboy inter- 
view with Steve Jobs for some amus- 
ing pronouncements, especially about 
us programmers over 30 years old. 

The fact is that everybody would 
find the sales of 200,000 Macs in the 
first year to be very remarkable, if 
Apple hadn't spouted off all those 
projections about how it was going to 
build a Mac every 15 seconds in their 
new super MacFactory. To argue 
that the Mac has already sold more 
machines than the Lisa is not what 
you'd call a devastating rejoinder, 
since Apple has already thrown in the 
towel on the Lisa and reincarnated it 
as the Macintosh XL. 

As for the Macintosh assembler, I 
feel that I'm on very solid ground 
with my previous comments, having 
written several assemblers myself. 
The fact that the instruction set of 
the 68000 is powerful and extensive 
cuts both ways: of course it means 
that you have to worry about assem- 
bling more complex syntax, but it 
also means that you have a much 
more powerful language in which to 
write the assembler. Unless, of 
course, you are so bull-headed as to 
insist on writing your assembler in a 
high-level language like Pascal, 
which is completely unsuited to the 
job. Then you do end up with mon- 
strosities like the Apple Macintosh 
Assembler or the Microsoft 8086 
Macro Assembler. The proof of my 
contention has been conveniently 
provided by the product "MacASM” 
from Mainstay of Agoura Hills, Cali- 
fornia. This is an integrated full 
screen editor, macro assembler, and 
resource compiler for the Macintosh 
that runs nicely in 128K and costs 
only $125.00. ““MacASM” is not copy 
protected and supports multiple 
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drives including hard disks. Mainstay 
can be reached at (818) 991-6540. 


MSDOS Device Drivers 


Stan Mitchell of San Jose, Califor- 
nia, writes: “I thought I would pass 
along a tool that comes in handy 
when working with MSDOS device 
drivers. It depends upon a useful 
property of the NUL device driver. 
Unlike other devices, it is embedded 
in the DOS module (IBMDOS.COM 
for the PC) and its device header is at 
the head of the device chain. By using 


the next device pointer in successive 
headers, the complete chain can be 
revealed. It is interesting that if any 
installed devices are present, the 
NUL header points to the first of 
these. When installed devices are ex- 
hausted, the link continues with the 
resident devices (contained in IBM- 
BIO.COM for the PC). 

“The only ‘trick’ in the program is 
using the OPEN function to return 
the device header pointer. This is an 
undocumented feature of MSDOS." 

Readers, please note that the for- 
mat of the reserved area in the file 


CP/M-80 C Programmers ... 


ave time 


... With the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


possible! 


If you're a C language 
programmer whose patience is 


wearing thin, who wants to spend 


your valuable time programming 


instead of twiddling your thumbs 


waiting for slow compilers, who 
just wants to work fast, then it's 


BDS C features include: 


* Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/7280 CP/M command 
files. 

A comprehensive debugger that 
traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 


Plus... 


* A thorough, easy-to-read, 181-page 
user's manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it's the 
perfect manual for the beginner and 
the seasoned professional. 


time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


* A 120-function library written in both * An attractive selection of sample 
C and assembly language with full 
Source code. 


programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 


* A nationwide BDS C User's Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 


gd 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it's remarkable 
speed. 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C's speed of 
compilation was almost twice as 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


"I recommend both the 
and the implementation 
by BDS very highly." 
Tim 
in Infoworld 
"Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent." 
InfoWorld 
Sortware Report Card 
"...a superior buy ..." 
Van Court Hare 


Don't waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8" SSSD disks, 
181-page manual): $150 

Free shipping on prepaid orders inside 
USA. 

VISA/MC, COD's, rush orders accepted. 
Call for information on other disk 
formats. 


Pugh, Jr. 


BDS C is designed for use with CP/M-80 
operating systems, version 2.2. or higher. It is 
not currently available for CP/M-86 or MS- 
DOS. 


in Lifelines/The Software 
Magazine 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 
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Engineered for ` 
Excellence 


ens å SORT 


so you can get more from your Personal Computer.* 
You are interested in more productivity. Davong designed the 
DataSystem for convenience, versatility, and reliability. 

Convenience is built-in. Like the package design that 
slips under your monitor. And installation that's a snap. Put 
one adapter in a short slot. Connect one cable. Plug it in and 
go. And you don't need to be an expert to use our software. 
Menu-driven programs with simple commands and on-line 
information put you at ease. 

Versatility is unsurpassed. DataSystem tape accepts 
true DOS commands (COPY, etc.) so you can make file-by-file 
backups. You can even run programs from tape. Or, back up 
entire disk volumes in minutes with our Tape Manager pro- 
gram. Your data speeds to tape at one million characters a 
minute. Just data. DataSystem doesn't waste your tape space 
with non-data areas. And tape capacity is always guaranteed. 


*IBM® PC, XT, AT, and many compatibles 


IBM? is a registered trademark of International Business 

: Machines Corporation. 

Multi-OS®, Davong DataSystem™, and Davong MultiLink™ are 
trademarks of Davong Systems, Inc. 
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We put more into the Davong DataSystem " 


Choose from 10, 21, 32 or 43-megabyte disk sizes plus 24 
megabytes of removable tape storage. Emulate an XT with 
Davong Fixed Disk software or enhance your computer's 
performance with optional Davong Multi-OS® software. And 
Multi-OS readies the DataSystem for Davong MultiLink™ 
networking. | 

Reliability is assured. Only fully-tested components 
are used in the DataSystem. Before it leaves quality control, 
each drive must pass days of rigorous system-level tests—and 
the rack. Each DataSystem must survive a torturous burn-in 
with no problems. Only then do we consider it good enough for 
your desk. 

If you have the Data, Davong has the System for you. 
Convenience, versatility and reliability. Why settle for less? 


See us at Comdex/Spring, Booth #3232. 


M.I 


Davong Systems, Inc. 
217 Humboldt Court 
Sunnyvale, CA 94089 
Phone: (408) 734-4900 
Telex: 176386 
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control block is different under 
MSDOS 2.0 than it is under version 
3.0. Stan's C program and the assem- 
bly language source for the . peek 
function are provided as Listing Two 
(page 122) and Listing Three (page 
125). 


Microsoft Assembler Bug 
of the Month 


Gregor Owen of Port Jefferson Sta- 
tion, New York, writes: *I don't 
know if anyone's still counting, but 
here's my contribution for Microsoft 
Assembler bug of the month. In the 
assembly below, the code es:lodsb 
produces an error; however, the code 
below it, mov ax,es:[si+ 1], produces 
an error too. If you comment out the 
es:lodsb, both errors disappear—so 
superior to the old-fashioned kind of 
assembler, where frequently the re- 
moval of defective code only removes 
errors in the vicinity of the defect. 

*At this point, I don't really know if 
es:lodsb represents a legal operation. I 
don't happen to have an Intel book at 
this location, and since every 8086/88 
instruction has a unique set of ad- 
dressing modes, it's difficult to get any 
kind of feel for what's allowed. Need- 
less to say, the IBM / Microsoft assem- 
bler manual is not helpful. It's true 
that if one comments out es:lodsb and 
assembles lods byte ptr es:[si +0] both 
errors disappear, but I don't think 
anybody who's used the Microsoft as- 
sembler for any short while would 
take any comfort from that. 

*And while we're on the subject, 
notice the expressive elegance and 
beauty of the phrase 


lods byte ptr es:[si + 0] 


typical of the language Intel has pro- 
vided for us. The si+ 0, I concede, is 
something I've been doing ever since 
I managed to assemble some kind of 
complicated expression that had [si] 
in it —producing code that referenced 
[si - OFFFFH] and didn't generate an 
assembler error. Of course I probably 
don't have to use si+0 in every ex- 
pression, but who wants to spend the 
time to find out? That's the beauty of 
the language: every programmer, in 
order to produce stuff that works at 
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all, will develop a private dialect con- 
taining much myth and legend, thus 
making the source even more incom- 
prehensible than it is anyway. 

*My personal theory about 8086/ 
88 assembly language is that what we 
have here is a marketing coup on the 
part of Intel. They had a ridiculous 
processor, with the traditional inept 
Intel approach to registers and ad- 
dressing. Somehow, they sensed it 
would be awfully embarrassing to ex- 
pose this thing in all the stark sim- 
plicity of their ‘lxi h,7’-type assem- 
bler [for the 8080 among other 
processors]. So they commissioned 
the finest, most convoluted, Pascal- 
ized minds in the software industry to 
come up with an assembler so grand 
and structured and incredibly intri- 
cate that no one would ever notice 
how awful the thing was for which it 
was assembling. Judging by the re- 
sults, they seem to have succeeded. 

"And those of us who labor in the 
vineyards of the information revolu- 
tion can't be all too high-horsey 
about this: after all, the Intel/Micro- 
soft language makes it almost impos- 
sible for those pesky amateurs to fig- 
ure anything out, thus preserving the 
world of 8086/88 assembler for us, 
the elect: people paid to spend the 
necessary endless hours figuring out 
how to use the language and avoid 
the Microsoft bugs. A sort of 'pro- 
grammer's employment project’ for 
the new age." 

Gregor's program is provided as 
Listing Four (page 126). My unedu- 
cated guess, in this case, is that the 
Microsoft Assembler interprets the es: 
portion of the statement es:lodsb as 
the definition of a label named es. It 
then gives you the error message 
“symbol already different type," since 
the name es is already hardwired into 
the symbol table as an assembler di- 
rective. All the other errors follow 
from the ensuing type conflicts. 


Fun with your PC/AT 


Assemble the following instruction 
sequence into a short assembly lan- 
guage program and execute it on the 
IBM PC/AT of your choice: 


mov bx,Offffh 


Pascal and C 


Programmers 


Your programs can 
now compile the 


Firstime” 


FirsTime is an intelligent editor that 
knows the rules of the language being 
programmed. It checks your statements 
as you enter them, and if it spots a 
mistake, it identifies it. FirsTime then 
positions the cursor over the error so 
you can correct it easily. FirsTime will 
identify all syntax errors, undefined 
variables, and even statements with 
mismatched variable types. In fact, any 
program developed with the FirsTime 
editor will compile on the first try. 


More than a syntax checker! 


FirsTime has many unique features 
found in no other editor. These powerful 
capabilities include a zoom command 
that allows you to examine the 
structure of your program, automatic 
program formatting, and block 
transforms. 


If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch betwėen different 
languages. 


Other Features: Full screen editing, 
horizontal scrolling, function key menus, 
help screens, inserts, deletes, appends, 
searches, and global replacing. 


Programmers enjoy using FirsTime. It 
allows them to concentrate on program 
logic without having to worry about 
coding details. Debugging is reduced 
dramatically, and deadlines are more 
easily met. 


FirsTime for PASCAL $245 
FirsTime for C $295 
Microsoft PASCAL Compiler $245 
Microsoft C Compiler $395 
Demonstration disk $25 


Get an extra $100 off the compiler when 
it is purchased with FirsTime. 
(N.J. residents please add 6% sales tax.) 


Spruce 


Technology Corporation 
110 Whispering Pines Drive 
Lincroft, N.J. 07738 
(201) 741-8188 or (201) 663-0063 


Dealer enquiries welcome. Custom versions 
for computer manufacturers and language 
developers are available. 


FirstTime is a trademark of Spruce Technology 
Corporation. 
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mov ax,[bx] 


The system dies immediately. The 
same sequence of instructions will run 
just fine on an 8086 or 8088-based 
machine. What is happening here? 

It turns out that on the 80286, ac- 
cessing a word operand at offset 
OFFFFH, i.e., a segment wrap, causes 


a hardware interrupt 13H. Alas (as 
Jerry Pournelle would say), this in- 
terrupt is already used by the IBM PC 
ROM BIOS for the disk driver. So 
when your program accidentally gen- 
erates a segment wrap fault, it traps 
to the disk driver with nonsense pa- 
rameters in the registers and proba- 
bly writes garbage all over your nice 


hard disk. This kind of phenomenon, 
when we move a previously happy 
program from an IBM PC to a PC/AT 
and watch it go to heaven, helps us 
while away those rainy afternoons. 


DDJ 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 196. 


16-Bi f loolbox (Text begins on page 118) 


Listing One 


Call with: 


Returns: 
DO.L = SQRT (DO.L) 


Integer Square Root (32 to 16 Bit) 


(Exact method, not approximate) 


DO.L - Unsigned number 


D1.L <> 0 if not exact root 


++ ARGON AA 


Uses: 
D1-D4 as temporaries --- 
Dl = Error term 
D2 = Running estimate 
D3 = High bracket 
D4 = Loop counter 
Notes: 

Result first in DO.W, but is valid in longword. 
Takes from 1480 to 1832 cycles (including RTS). 
(Word version is from 548 to 660 cycles). 

sqrt move.w $15,d4 ; Loop count (bits-1 of result) 
moveq $0,d1 ; Result in D1 
moveq $0,d2 

sgrtl asl.l $1,d0 ; Get 2 leading bits at a time and 
roxl.1 $1,d1 ; into Error term for extrapolation. 
asl.l $1,d0 ; (Classical method, easy in binary) 
tOoxl.l $1,d1 
asl.1 $1,d2 ; Running estimate * 2 
move.1 d2,d3 
asl.l $1,d3 
cmp.1 q3, Si 
bls sqrt2 ; New error term » 2* running est.? 
addq.1 #1,da2 ; Yes, we want 1 bit then. 
addq.1 $1,d3 ; Fix up new error term. 
sub.1 23,01 

sqrt2 dbra d4,sqrtl ; Do all 16 bit-pairs. 
movel d2,d0 ; Returns answer in DO.W 
rts 


Listing Two 


End Listing One 


"C" source code for Stan Mitchell's program to dump the device driver chain. 


1 [ FHHHHHHHHHHPHHHPHEHHEHHPHEHHHHRHPUHHHCUHCHEBPRHHPPHEHEHOHEHHUHUHEPHHHO TE 
2 * dd dump.c program for displaying device driver chain — * 
3 * for DOS 2.00,2.10,3.00 id 
4 E E 
5 * by stan mitchell . november 21,1984 * 
ó Li Lattice C v. 1.04 * 
7 PHEHHHHHHEHUHHHHHHEHPHHEHHEHEHHHEEHEEHHHHE HUHUHUHHPEHHHHEHUHHPHPHPHHHRRH HG / 
8 


9 #define void 
16 #define byte 
11 #include 
12 


int 
char 
"stdio.h" 


122 


(Continued on page 124) 


Dr. Dobb's Journal, May 1985 


Jan) 80 


FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-80. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 


|; Complete upward compatibility with DDT 
|' Simultaneous instruction, register, stack & memory displays 


| | Software In-Circuit-Emulator provides write protected memory, 
execute only code and stack protection. 

(| Full Z80 support with Intel or Zilog Mnemonics 

|. Thirty day money back guarantee 
On-line help & 50 page user manual 


ONLY 9122. 
BET ADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 


= 


__ VISA | 
Ex] 


Circle no. 63 on reader service card. 


FOR THE SERIOUS KAYPRO? USER 


THE DISKIT E 
SERIES of fi Í = 
DRIVES es 


ee, 


how with ZCPR3™ 


Now you can add from 5 to 40 Megabytes of fast-access Winchester 
storage to your KAYPRO 2, 4, or 10. The DISKIT is only 4 inches high; 
5.7 if you get the two drive model with the removable 5 or 10 Mb. 
cartridge, and weighs less than 10 pounds. Easily disconnect DISKIT 
from the computer whenever you want, and if more capacity is required, 
just swap your drive for a larger model. 

Our DISKIT Model 10 has 10.8 Megabytes of formatted capacity... 20% 
more than a Kaypro 10, and runs about twice as fast. Installs in minutes. 
Call SPC now and ask for more information. Quantity and prepayment 
discounts are available. 


SYSTEMS PERIPHERALS CONSULTANTS 
9747 Business Park Avenue 
San Diego, CA 92131 
(619) 693-8611 


Circle no. 104 on reader service card. 


RUN/C:' 
The Affordable C 
Interpreter 


Available NOW for only $149.95! 


Finally, a painless introduction to 
the C language. With RUN ZC: 
The C Interpreter you 
can create and run C language 
programs in an environment as 
easy to use as BASIC. 


RUN/C isCfor the rest of us. 
It is a robust implementation of 
standard K&R. RUN /C is for 
both the beginner and profes- 
sional. 


RUN /C includes full floating 
point, 8087 support, structures, 
unions, casts and more than 100 
built-in C functions. 


With RUN ZC you get all this 
with a command structure mod- 
eled after BASIC’s using familiar 
terms such as EDIT, RUN, LIST, 
LOAD, SAVE, TRON, SYSTEM, etc. 


Since RUN ZC is a true inter- 
preter it means that C programs 
can be written, tested and run 
within a single protected envi- 


ronment. It is a teaching tool and 
a source code debugger. 


Here's more good news... 


e Great documentation: a 400- 
page, easy-to-read manual 
filled with executable 
programs 

e Array-index and pointer 
bounds checking 

e Variable-trace and dump 
diagnostics PLUS an integral 
program profiler 

e Full buffered and unbuffered 
file 1/O 

e Printer and asynch support 

e Forking to your favorite full 
screen editor with automatic 
return to RUN ZC with 
your edited program 

e System Requirements: 

IBM? PC or compatible with 
PC-DOS 2.0 or MS™-DOS 2.0 or 
greater with ANSI.SYS. 


Get things right the first time 
with RUN/C: 
The C Interpreter.™ 


For immediate delivery or more 
information, call: 


1-800-847-7078 
(in NY. 1-212-860-0300) 


or write: Lifeboat Associates" 
1651 Third Avenue 
New York, NY 10128 


Circle no. 74 on reader service card. 


TURBO 
GRAPHICS™ 


for use with 


Borlands Turbo Pascal™ 


A comprehensive set of Pascal 
procedures and binary routines 
that includes most of the 
graphics capabilities found in 
BASICA in addition to several 
new graphics routines. 


MAJOR FEATURES 


(on medium resolution 
graphics screen) 


W Draw large letters, circles, 
and lines in color. 


@ Create complicated graph- 
ics using DRAW "macros". 


W Create and use WINDOWS 
non-destructively. 


ll Paint enclosed areas. Get 
and Put screen memory. 


lll Scroll any portion of the 
screen up or down. 


B Use the font editor to create 
letters and graphics 
characters. 


ll Combine features to create 
interesting animations. 


Catalog Numbers: 
UTIL-100-IBM PC $39.95 


UTIL-100-IBM PCjr each 
Shipping and Handling: 
$5.00 each 


=DE 


Diversified Educational Enterprises, Inc. 
725 MAIN STREET 
LAFAYETTE, IN 47901 
317-742-2690 
Circle no. 118 on reader service card. 
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16-Bi t Toolbox (Listing Continued, text begins on page 118) 
Listing Two 


/* DOS function calls */ 


#define 
#define 
#define 
extern 


struct 


struct 


struct 


struct 


struct 
struct 


struct 
struct 


main() 
( 
int 


OPENFCB 
CLOSEFCB 
VERSION 


OxOf 
0x10 
0x30 


int peek(); 


DEVHDR 

( 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


char 
); 


FCB 

( 

byte 
char 
unsigned 
unsigned 
long 
unsigned 
byte 
byte 

8 


RSV2 Y 

( 
unsigned 
byte 
unsigned 
unsigned 
bute 

); 


RSV3 X 

( 
unsigned 
unsigned 
unsigned 
unsigned 
byte 

5 


DEVHDR 
FCB 

RSV2 X 
RSV3 X 


dev off, 


initfcb(0, "NUL 


( 


nxthdr off; 
nxthdr seq; 
attr; 
strat; 
intrpt; 
dname[8]; 


drive; 
fname[111; 
curblk; 
recsizj 
fsize; 

date; 

sys rsv[10]; 
bset[5]; 


times 
attribute; 
dhdr_off; 
dhdr seg; 
unkL 3]; 


time; 
attribute; 
dhdr off; 
dhdr seg; 
unkE 2); 


device; 
device fcb; 
*dos2x; 
tdos3x; 


dev seg,i, ji 


/* doubleword ptr to next device hdr in chain */ 


/* type of device driver */ 
/* device strategy entry point */ 
/* interrupt entry point */ 


/* device name */ 


/* drive desiqnator */ 

/* file or device name */ 

/* current blk (set to @ by OPENFCB) */ 

/* logical record size (set to 0x80 by OPENFCR) */ 
/* file size in bytes */ 

/* creation or last update date */ 

/* fields reserved for DOS */ 

/* relative record numbers */ 


/* creation or last update time */ 
/* device or file attribute */ 


/* offset address of 


device header */ 


/* segment address of device header */ 


/* unknown usage */ 


/* creation er last update time */ 
/* device or file attribute */ 


/* offset address of 


device header */ 


/* segment address of device header */ 


/* unknown usage */ 


/* device header */ 
/* standard FCB for 


device */ 


/* reserved field definitions DOS 2.x */ 
/* reserved field definitions DOS 3.x #/ 


“); /* set up standard FCB for NUL device */ 
if (bdos(OPENFCB, &device fcb) & Øxff) /* open the device */ 


printf("Unable to open device\n"); 


exit(1); 
) 


if ((bdos(VERSION,@) & Øxff) == 3) 
( /* the reserved fields are allocated differently in DOS 3.x */ 
dos3x=(struct RSV3 X *) kdevice fcb.sus rsv(03; 


dev off=dos3x->dhdr off; 
dev seg=dos3x->dhdr seg; 


) 


else if ((bdos(VERSION,0) & Øxff) == 2) 


( /* se 


+ than they were in DOS 2.x */ 


dos2x-(struct RSV2 X *) device fcb.sys rsv[Ø]; 


dev off=dos2x->dhdr off; 
dev seg=dos2x->dhdr seg; 
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86 SS 


87 else 

88 ( /* forget it for DOS 1.19 or earlier */ 

89 printf (* DOS 2.00 or newer required Wn"); 

90 exit(1); 

91 ) 

92 

93 printf(" Device driver chain s... An"); 

94 printf("\n"); 

95 

96 /* display the current DOS chain of device drivers #/ 

97 printf(" ptr type name strategy ptr interrupt ptr An"); 

98 

99 for (ss) 

199 ( 

191 printf("X04x:104x ",dev seg,dev off); /* device header ptr */ 

102 if (dev off == Oxffff) break; /* if last in chain, offset=Oxffff */ 
193 /* move the device header into the data segment structure "device" */ 

194  peek(dev seg,dev off, &device,sizeof(device)); 

195 printf(" 7204x ",device.attr); /* display the device attribute word */ 
106 if ((device.attr & 0x8000) == Q) /* if a block device ... */ 

197 for (j20; j<=33 j++) printf ("102x", device.dnameLj)); /* there is no device name */ 
108 else 

109 for ( j=@s Hei: j++) printf("e",device.dnamelj)); /* otherwise display device name */ 
119 

iit printf(” 7.04x: Léin ",dev_seq,device.strat); /* strategy entry point */ 
112 printf(*Z04x:204x —— Wn",dev seg,device.intrpt); /* "interrupt" entry point */ 
113 dev seg-device.nxthdr seg; /* set up ptr to next device header */ 

114 dev offzdevice.nxthdr off; /* and loop back to display it */ 

115 ) 

116 

117 ) 

118 


119 /* initialize standard FCB */ 
120 void initfcb(drv,name) 
121 byte drv; 


122 char namel]; 

123 ( 

124 int ij 

129 

126 device fcb.drive=drv; /* drive designation: default drive=@, Del, etc. */ 

127 for (i=@;i<=10;i++) device fob.fnamelil=namelil; /* device or file name */ 

128 fer (i=0:i<=4;i++) device fcb.bsetlil=@; /* fields not zeroed by open call %/ 

127 ) 

139 End Listing Two 


Listing Three 


Assembly language source for " peek" library function, 
used in Stan Mitchell's device driver dump program. 


PAGE 
PAGE 62,132 
NAME — peek 


A LLLLLLLLLLLLLLLLLLLLLLLMLLLLLLLLKLLALLLLLLLLLELLLLLLLLLLLLLLELLLLLLLLLLIPESI 


LIA LJ 


void _peek(seqnent, offset, buffer, nbytes) 


unsigned segment; /* segment portion of memory addr */ 
unsigned offset; /* offset portion of memory addr */ 

byte *buffer; /* local memory buffer (in data segment) */ 
unsigned nbytes; /* number of bytes to transfer */ 


we we  - - 


we we 


Lattice C assembly language interface convention followed 


i (ES-DS on entry) 
HEHEHE HEHEHE HHH HHS HHH HHH A 


; 
= EXTRA EW 4 
3 
PGROUP GROUP PROG 
0900 PROG — SEGMENT BYTE PUBLIC ‘PROG’ 
PUBLIC PEEK 
ASSUME CS: PGROUP 


(Continued on next page) 
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Listing Three 


91B 


Listing Four 


Gregor Owen's Microsoft Assembler Bug of the Month. 
Assemble this brief program for some entertaining error messages, 
then comment out the line "es:lodsb" and assemble it again. 


microwiff segment 


microwimp: 


microwiff ends 


126 


BE SE 94 


8B 76 96 


8B 7E e8 


8B 4E MA 


F3/ M 


PEEK 


PEEK 


(Listing Continued, text begins on page 118) 


PROC 
PUSH 
MOV 

PUSH 
PUSH 
PUSH 
PUSH 


$ 
get source segment 
DS, WORD PTR [BP+EXTRA] 


MOV 


1 
get source offset 
SI MORD PTR [BP+EXTRA+2] 


MOV 


$ 
«get destination offset in ES 
DI, WORD PTR [BP+EXTRA+4] 


MOV 


; 
;get byte count for transfer 
CX WORD PTR [BP+EXTRA+6] 


MOV 


i 
;move the bytes into local buffer 


BBL 
9 


SI 
DI 
CX 


MOVSB 


we <<. A. we uve 9 


"B" V" we ee we? 


assume cs:microwiff,ds:microwiff,es:microwiff,ss:microwiff 


byte ptr es:[si+0] 


ax,es:[si-1] 


microwimp 


End Listing Three 


End Listings 
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Å 2 Advanced 


+ 


Trace86 " 


Symbolic Debugger & Assembler Combo 


Full-screen trace with single stepping; 
Even backstepping! 


* Write & Edit COM & EXE programs 
e Conditional breakpoints (programmable) 


e Switch between trace and output screen; 
Or set up two monitors 


8087, 80186, 80286, 80287 support 
Write labels & comments on code 
Polish hex/decimal calculator 
and more... Priced at $175.00 


To order or request more information contact: 


z M Morgan Computing Co., Inc. 


P.O. Box 112730, Dallas, TX 75011 
(214) 739-5895 


CONTROL 


n 


WRITE IT — RUN IT — ROM IT 
A single board computer development and control system that 
is so simple to use, you will be developing applications pro- 
grams the first day! 


* Choice of Basic or FORTH  * Onboard EPROM programmer for 
in ROM complete program development 


* 8 channel, 8 bit analog to 
digital converter 


* RS-232 terminal and parallel 
printer port for program entry 


* Two 8 bit input ports 
Two 8 bit output ports 


* 7 current sinking outputs rated 
at 500 mA, 50 VDC 


* Time of day 
* 8088 16 bit uP 


* Up to 32 K of user memory 


* Assembled and tested $279 
Kits start at $79 


MasterCard and Visa accepted 


Vesta Technology. Inc. 7100 W. 44th Ave. Suite 101 
Wheat Ridge, CO 80033 (303) 422-8088 


Circle no. 124 on reader service card. 


BYSO LISP 


has features that will delight 
both beginners and advanced 
programmers. A fast, reliable 
and complete interpreter for the 
IBM PC and true compatibles. 
$125 includes 100 pg. ref. 
manual and application notes 
that put you months ahead on 
useful projects (making a hybrid 
language with C, accessing 
system functions and I/O ports, 
building your own dialect, etc.). 


LEVIEN INSTRUMENT CO. 


P.O. Box 31B 
McDowell, VA 24458 
703-396-3345 


IBM PC is a trademark of the IBM Corp. 


Circle no. 25 on reader service card. 


PERFORMANCE ACCELERATORS 
FOR CP/M-80 & MP/M-80 


WSOPTION for WORDSTAR 3.0 & 3.3 (installs itself 
right into WordStar) 


FAST 
Speeds up action of WordStar functions so you spend 
less time waiting for WordStar to take action on your 
commands. 


PRODUCTIVE 
A superior print-while-edit capability is included. You 
can now use one terminal or micro to edit one file while 
printing another without reducing your typing speed! 


CONVENIENT 
At print time you can select 1 of 4 printers under CP/M 
or 1 of 8 printers under MP/M. Under MP/M you do a 
proper attach and detach of the printer so it is always 
free when you are not using it. You are informed if the 
printer is in use at print time so you do not hang up. 
Many additional features installed via menu. 


MPMPLUS for MP/M-80 
A group of programs and modules designed to im- 
prove your console and disk response under MP/M-80. 
A performance increase of 2 to 3 times is usual for 
disk 1/0. 
Send $35.00 for each item plus $2.00 postage. 


INCLUDE DISK FORMAT REQUIRED 
Continuum Microsystems Ltd. Use your Visa 
21 McCarty Crescent or M.C. 
Markham, Ontario 
Canada L3P 4R4 (416) 294-8536 
WordStar reg. MicroPro, CP/M MP/M reg. D.R.l. 


Circle no. 29 on reader service card. 


I Š PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
256K 256Kx1 150 ns 
64K 64Kx1 120 ns 
64K 64Kx1 150 ns 
64K 64Kx1 200 ns 

EPROM 
27C256 32kx8 250 ns 
27256 32kx8 250 ns 
27128 16Kx8 250 ns 
27C64 8Kx8 200 ns 
2764 8Kx8 250 ns 
2732A 4Kx8 250 ns 
2716 2Kx8 450 ns 

STATIC RAM 
6264LP-15 skxs 150 ns 
6116LP-3 2kx8 150 ns 


OPEN 6% DAYS: WE CAN SHIP VIA FED-EX ON SAT. 
MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts Po 
MICROPROCESSORS UNLIMITED 
24,000 S. Peoria Ave., BEGGS, OK. 74421 (918) 267-4961 


Prices shown above are for March 26, 1985 
Please call for current prices. Prices subject to change. Please expect higher or lower prices on 
some parts due to supply & demand and our changing costs. Shipping & insurance extra. Cash 
discount prices shown. Orders received by 6 PM CST can usually be delivered to you by the 
next morning, via Federal Express Standard Air (a $6.00; Priority 1 «: $11.50! 


QUANTITY ONE PRICES SHOWN 
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CONSUME NO EXPANSION SLOTS! $123.86 


Circle no. 64 on reader service card. 


IN-CIRCUIT EMULATOR 
For 8050, 8049 and 8048 uC's 


SIS PEER 
SS EA xx ES 

ECH en 

— 


3 OI — ES 
i oe 


For Hardware/Software Design the E232-48 
replaces the target microcomputer for complete 
emulation under control of the host computer. 
It emulates all of the above uC's plus their 
ROM-less and CMOS versions. It’s features are: 

* Real time emulation up to 11 Mhz. 

* Full 4K Emulation Memory. 

* Hardware Breakpoints. 

* In-line Assembler and Disassembler. 

* Upload, Download & Terminal mode drivers 

for IBM-PC, CP/M-80 and CP/M-86 are included. 

Cross Assemblers for 8048 series and other uP's 
running on the above host systems-From ........... $150 


SIGNUM SYSTEMS 


726 Santa Monica Blvd. 
Santa Monica, CA 90401 (213) 451-5382 


Circle no. 106 on reader service card. 


PO. Box 2412 Columbia, MD 21045-1412 | ` 


No source code for 


: your REL files? ; 
| REL/MAC . 
| converts a REL file in the Microsoft" Ë 


4 M80 format to a ZILOG™ or 8080 source 
9 code MAC file with insertion of all public 
D and external symbols. 

1 e REL/MOD lists library modules 

1 e REL/VUE displays the bit stream 

x e 50 page manual with examples 

i e free brochure available 

1 e REL/PAK includes all of the above 

M ` REL/PAK for 8080 only ............... 

H REL/PAK for Z80 & 8080 ............. $134.95 

: on 8'SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[EPI MicroSmni 


COMPUTER TECHNOLOGY 


PO. BOX 1473 ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 


Circle no. 41 on reader service card. 


Users' 
Group 


Over 40 volumes of public 
domain software including: 


e compilers 

e editors 

e text formatters 

e communications 
packages 

e many UNIX-like tools 


Write or call for more details 


The C Users' Group 
415 E. Euclid e Box 97 
McPherson, KS 67460 

(316) 241-1065 


Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking ` Windowing 
Handles interrupts Interactive 
Fast native code Compiles quickly 
Floating point No runtime fee 


MTBASIC is a true native code compiler. It runs Bytes's Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 


MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


SOFIAID, Inc. 


301/792-8096 ` 


Circle no. 88 on reader service card. 


LISP 


FOR THE 
IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


DATA TYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


FUNCTION TYPES 
EXPR/FEXPR/MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


IO SUPPORT 

Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 
Package Support 
Debugging Functions 
.0BJ File Loader 
i RUNS UNDER PC-DOS 1.1 or 2.0 


SEES HEIRAT ROME 
IQLISP 
5 V4" Diskette 
and Manual  — 
Manual Only — |. 


$175.00 
$ 30.00 


j q Integral Quality 


P.0. Box 31970 
Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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They said it couldn't be 
Borland Didit. Turbo Pascal 


The industry standard TURBO TURBO MS The best just got better: 
With more than 250,000 users worldwide Turbo 3.0 2.0 PASCAL Introducing Turbo Pascal 3.0 


Pascal is the industry's de facto standard. Turbo 
Pascal is praised by more engineers, hobbyists, 
students and professional programmers than any 
other development environment in the history of 
microcomputing. And yet, Turbo Pascal is 
simple and fun to use! 


We just added a whole range of exciting new 
features to Turbo Pascal: 


e First, the world's fastest Pascal compiler just got 
faster. Turbo Pascal 3.0 (16 bit version) compiles 
twice as fast as Turbo Pascal 2.0! No kidding. 

e Then, we totally rewrote the file 1/0 system, and 
we also now support UU redirection. 

e For the IBM PC versions, we've even added 


COMPILATION SPEED “turtle graphics” and full tree directory support. 
e For all 16 Bit versions, we now offer two addi- 
EXECUTION SPEED tional options: 8087 math coprocessor support 
for intensive calculations and Binary Coded 
CODE SIZE Decimals (BCD) for business applications. 


e And much much more. 


BUILT-IN INTERACTIVE EDITOR The Critics’ Choice. 

Jeff Duntemann, PC Magazine: “Language 

Gi ake e deal of the century . . . Turbo Pascal: It 
introduces a new programming environment and 

COMPILER SIZE runs like magic." 

Dave Garland, Popular Computing: ‘Most 

TURTLE GRAPHICS Pascal compilers barely fit on a disk, but Turbo 
Pascal packs an editor, compiler, linker, and run- 

BCD OPTION time library into just 39K bytes of random- 

E access memory.” 

PRICE Jerry Pournelle, BYTE: "What | think the 
computer industry is headed for: well 
documented, standard, plenty of good features, 

pe "Re be EUR UE and a reasonable price." 
Portability. e DOS wer vision 26 The £73 line ird sed is Ie pen 
Turbo Pascal is available today for most com- Seidel" program out of Alan R. Miller's book: Pascal programs for 
puters running PC DOS, MS DOS, CP/M 80 or scientists and engineers (Sybex, page 128) with a 3 dimensional 
CP/M 86. A XENIX version of Turbo Pascal will non-singular matrix and a relaxation coefficient of 1.0. 


soon be announced, and before the end of the 
year, Turbo Pascal will be running on most 68000 
based microcomputers. 


An Offer You Can't Refuse. 


Until June 1st, 1985, you can get Turbo Pascal 3.0 

for only $69.95. Turbo Pascal 3.0, equipped with 

either the BCD or 8087 options, is available for an 
additional $39.95 or Turbo Pascal 3.0 with both options 
for only $124.95. As a matter of fact. if you own a 16- 
Bit computer and are serious about programming, you 
might as well get both options right away and save 


arr 


almost $25. ` 
Update policy. 5008 
Ås always, our first commitment is to our customers. Mine iS: — as > Me M 86 
You built Borland and we will always honor your support. | Use: — cPIM e" model i$ 
r n 

So, to make your upgrade to the exciting new version of My computers 
Turbo Pascal 3.0 easy, we will accept your original Turbo — est 

-~ Pascal disk (in a bend-proof container) for a trade-in credit he disk UO 

-~ 0f $3995 and your Turbo87 original disk for $59.95. This 

.. trade-in credit may only be applied toward the purchase of 


. Turbo Pascal 3.0 and its additional BCD and 8087 options 
Ven offer i is il valid directly through Borland and until 


| p 
ED BAA PISA Software's Newest Direction — 
" d di m El 4585 Scotts Valley Drive 
den wt 
dier 


Scotts Valley CA 95066 
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